New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8105 for branches/UKMO/dev_r4650_general_vert_coord_obsoper_pfts/NEMOGCM/NEMO/OPA_SRC/OBS/obs_write.F90 – NEMO

Ignore:
Timestamp:
2017-05-31T17:35:14+02:00 (7 years ago)
Author:
dford
Message:

Implement initial version of PFT logchl obs operator, developed by Jozef S.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r4650_general_vert_coord_obsoper_pfts/NEMOGCM/NEMO/OPA_SRC/OBS/obs_write.F90

    r7713 r8105  
    938938   END SUBROUTINE obs_wri_vel 
    939939 
    940    SUBROUTINE obs_wri_logchl( cprefix, logchldata, padd, pext ) 
     940  ! SUBROUTINE obs_wri_logchl( cprefix, logchldata, padd, pext ) 
     941   SUBROUTINE obs_wri_logchl( cprefix, logchldata, padd, pext, pft_num ) 
    941942      !!----------------------------------------------------------------------- 
    942943      !! 
     
    970971      INTEGER :: nadd 
    971972      INTEGER :: next 
     973      INTEGER, OPTIONAL :: pft_num 
    972974 
    973975      IF ( PRESENT( padd ) ) THEN 
     
    988990         &                 1 + nadd, next, .TRUE. ) 
    989991 
    990       fbdata%cname(1)      = 'LOGCHL' 
     992      !fbdata%cname(1)      = 'LOGCHL' 
     993      IF ( PRESENT( pft_num ) ) THEN 
     994      WRITE(fbdata%cname(1),'(A,I2.2)')'LOGCHL',pft_num 
     995      ELSE 
     996          fbdata%cname(1)      = 'LOGCHL' 
     997      ENDIF 
     998 
    991999      fbdata%coblong(1)    = 'logchl concentration' 
    9921000      fbdata%cobunit(1)    = 'mg/m3' 
Note: See TracChangeset for help on using the changeset viewer.