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 8157 for branches/UKMO/dev_r5518_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90 – NEMO

Ignore:
Timestamp:
2017-06-08T18:16:29+02:00 (7 years ago)
Author:
dford
Message:

Fix syntax error in HadOCC/MEDUSA warning messages.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

    r7992 r8157  
    827827                  zsurfmask(:,:) = 0 
    828828                  CALL ctl_warn( ' HadOCC fCO2 values masked out for observation operator', & 
    829                      &           ' on timestep ' // TRIM(STR(kstp)),                              & 
    830829                     &           ' as HADOCC_FCO2(:,:) == HADOCC_FILL_FLT' ) 
    831830               ENDIF 
    … …  
    837836                  zsurfmask(:,:) = 0 
    838837                  CALL ctl_warn( ' MEDUSA fCO2 values masked out for observation operator', & 
    839                      &           ' on timestep ' // TRIM(STR(kstp)),                              & 
    840838                     &           ' as MEDUSA_FCO2(:,:) == MEDUSA_FILL_FLT' ) 
    841839               ENDIF 
    … …  
    875873                  zsurfmask(:,:) = 0 
    876874                  CALL ctl_warn( ' HadOCC pCO2 values masked out for observation operator', & 
    877                      &           ' on timestep ' // TRIM(STR(kstp)),                              & 
    878875                     &           ' as HADOCC_PCO2(:,:) == HADOCC_FILL_FLT' ) 
    879876               ENDIF 
    … …  
    885882                  zsurfmask(:,:) = 0 
    886883                  CALL ctl_warn( ' MEDUSA pCO2 values masked out for observation operator', & 
    887                      &           ' on timestep ' // TRIM(STR(kstp)),                              & 
    888884                     &           ' as MEDUSA_PCO2(:,:) == MEDUSA_FILL_FLT' ) 
    889885               ENDIF 
Note: See TracChangeset for help on using the changeset viewer.