npzd_Franks_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 franks et al. (1986) ecosystem model input parameters into **
**  output netcdf files. it is included in routine "wrt_info.F".      **
**                                                                    **
************************************************************************
*/
 
!
!  Write out NPZD (Franks et al., 1986) 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, 'K_ext',             &
     &                          k_ext(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, 'K_Phy',             &
     &                          k_phy(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, 'PhyMR',             &
     &                          phymr(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, 'ZooMR',             &
     &                          zoomr(ng), (/0/), (/0/),                &
     &                          piofile = piofile)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'ZooMD',             &
     &                          zoomd(ng), (/0/), (/0/),                &
     &                          piofile = piofile)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'ZooGA',             &
     &                          zooga(ng), (/0/), (/0/),                &
     &                          piofile = piofile)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
 
      CALL pio_netcdf_put_fvar (ng, model, ncname, 'ZooEC',             &
     &                          zooec(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, 'wDet',              &
     &                          wdet(ng), (/0/), (/0/),                 &
     &                          piofile = piofile)
      IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN