npzd_Powell_wrt_pio.h

Go to the documentation of this file.

/*
** git $id$
*************************************************** hernan g. arango ***
** copyright(c) 2002-2025 the roms group                             **
**   licensed under a mit/x style license                             **
**   see license_roms.md                                              **
************************************************************************
**                                                                    **
**  writes powell et al. (2006) ecosystem model input parameters into **
**  output netcdf files. it is included in routine "wrt_info.F".      **
**                                                                    **
************************************************************************
*/
 
!
!  Write out NPZD (Powell et al., 2006) biological model parameters.
!
      CALL pio_netcdf_put_ivar (ng, model, ncname, 'BioIter',           &
     &                          bioiter(ng), (/0/), (/0/),              &
     &                          piofile = piofile)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'AttSW',             &
     &                          attsw(ng), (/0/), (/0/),                &
     &                          piofile = piofile)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'AttPhy',            &
     &                          attphy(ng), (/0/), (/0/),               &
     &                          piofile = piofile)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'PhyIS',             &
     &                          phyis(ng), (/0/), (/0/),                &
     &                          piofile = piofile)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'Vm_NO3',            &
     &                          vm_no3(ng), (/0/), (/0/),               &
     &                          piofile = piofile)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'PhyMRD',            &
     &                          phymrd(ng), (/0/), (/0/),               &
     &                          piofile = piofile)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'PhyMRN',            &
     &                          phymrn(ng), (/0/), (/0/),               &
     &                          piofile = piofile)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'K_NO3',             &
     &                          k_no3(ng), (/0/), (/0/),                &
     &                          piofile = piofile)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'Ivlev',             &
     &                          ivlev(ng), (/0/), (/0/),                &
     &                          piofile = piofile)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'ZooGR',             &
     &                          zoogr(ng), (/0/), (/0/),                &
     &                          piofile = piofile)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'ZooEED',            &
     &                          zooeed(ng), (/0/), (/0/),               &
     &                          piofile = piofile)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'ZooEEN',            &
     &                          zooeen(ng), (/0/), (/0/),               &
     &                          piofile = piofile)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'ZooMRD',            &
     &                          zoomrd(ng), (/0/), (/0/),               &
     &                          piofile = piofile)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'ZooMRN',            &
     &                          zoomrn(ng), (/0/), (/0/),               &
     &                          piofile = piofile)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'DetRR',             &
     &                          detrr(ng), (/0/), (/0/),                &
     &                          piofile = piofile)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'wPhy',              &
     &                          wphy(ng), (/0/), (/0/),                 &
     &                          piofile = piofile)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'wDet',              &
     &                          wdet(ng), (/0/), (/0/),                 &
     &                          piofile = piofile)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN