Changeset 9304


Ignore:
Timestamp:
2018-02-05T14:40:09+01:00 (2 years ago)
Author:
jpalmier
Message:

JPALM — Update trc_bio_check print statement - does not check surface values only

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_CO2_cmip/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

    r9298 r9304  
    510510         !!              Exceptionnal value did exist 
    511511         !! 
    512          Call trc_bio_check(kt) 
     512         Call trc_bio_check(kt, jk) 
    513513 
    514514         !!================================================================ 
     
    818818   END SUBROUTINE trc_bio_exceptionnal_fix  
    819819 
    820    SUBROUTINE trc_bio_check(kt) 
     820   SUBROUTINE trc_bio_check(kt, jk) 
    821821      !!----------------------------------- 
    822822      !! JPALM -- 14-12-2017 -- Still dealing with this micro-boil/carb failure 
     
    832832      INTEGER               :: ii,ij         ! temporary scalars  
    833833      INTEGER, DIMENSION(2) :: ilocs         !  
    834       INTEGER, INTENT( in ) :: kt 
     834      INTEGER, INTENT( in ) :: kt, jk 
    835835      !! 
    836836      !!========================== 
     
    860860         IF(lwp) THEN 
    861861            WRITE(numout,*) 'trc_bio:tracer anomaly: *****    WARNING     *****' 
    862             WRITE(numout,*) 'trc_bio:tracer anomaly: sea surface DIC > 4000 ' 
    863             WRITE(numout,9600) kt, zmax, ii, ij 
     862            WRITE(numout,*) 'trc_bio:tracer anomaly: DIC concentration > 4000 ' 
     863            WRITE(numout,9600) kt, zmax, ii, ij, jk 
    864864            WRITE(numout,*) 'trc_bio:tracer anomaly: ***** END OF WARNING *****' 
    865865         ENDIF 
     
    877877         IF(lwp) THEN 
    878878            WRITE(numout,*) 'trc_bio:tracer anomaly: *****    WARNING     *****' 
    879             WRITE(numout,*) 'trc_bio:tracer anomaly: sea surface DIC <= 0 ' 
    880             WRITE(numout,9700) kt, zmin, ii, ij 
     879            WRITE(numout,*) 'trc_bio:tracer anomaly: DIC concentration <= 0 ' 
     880            WRITE(numout,9700) kt, zmin, ii, ij, jk 
    881881            WRITE(numout,*) 'trc_bio:tracer anomaly: ***** END OF WARNING *****' 
    882882         ENDIF 
     
    909909         IF(lwp) THEN 
    910910            WRITE(numout,*) 'trc_bio:tracer anomaly: *****     WARNING    *****' 
    911             WRITE(numout,*) 'trc_bio:tracer anomaly: sea surface Alkalinity > 4000 ' 
    912             WRITE(numout,9800) kt, zmax, ii, ij 
     911            WRITE(numout,*) 'trc_bio:tracer anomaly: ALK concentration > 4000 ' 
     912            WRITE(numout,9800) kt, zmax, ii, ij, jk 
    913913            WRITE(numout,*) 'trc_bio:tracer anomaly: ***** END OF WARNING *****' 
    914914         ENDIF 
     
    926926         IF(lwp) THEN 
    927927            WRITE(numout,*) 'trc_bio:tracer anomaly: *****    WARNING     *****' 
    928             WRITE(numout,*) 'trc_bio:tracer anomaly:  sea surface Alkalinity <= 0 ' 
    929             WRITE(numout,9900) kt, zmin, ii, ij 
     928            WRITE(numout,*) 'trc_bio:tracer anomaly:  ALK concentration <= 0 ' 
     929            WRITE(numout,9900) kt, zmin, ii, ij, jk 
    930930            WRITE(numout,*) 'trc_bio:tracer anomaly: ***** END OF WARNING *****' 
    931931         ENDIF 
     
    933933 
    934934 
    935 9600  FORMAT ('trc_bio:tracer anomaly: kt=',i6,' max DIC: ',f16.10,', i j: ',2i5) 
    936 9700  FORMAT ('trc_bio:tracer anomaly: kt=',i6,' min DIC: ',f16.10,', i j: ',2i5) 
    937 9800  FORMAT ('trc_bio:tracer anomaly: kt=',i6,' max ALK: ',f16.10,', i j: ',2i5) 
    938 9900  FORMAT ('trc_bio:tracer anomaly: kt=',i6,' min ALK: ',f16.10,', i j: ',2i5) 
     9359600  FORMAT ('trc_bio:tracer anomaly: kt=',i6,' max DIC: ',f16.10,', i j k: ',3i5) 
     9369700  FORMAT ('trc_bio:tracer anomaly: kt=',i6,' min DIC: ',f16.10,', i j k: ',3i5) 
     9379800  FORMAT ('trc_bio:tracer anomaly: kt=',i6,' max ALK: ',f16.10,', i j k: ',3i5) 
     9389900  FORMAT ('trc_bio:tracer anomaly: kt=',i6,' min ALK: ',f16.10,', i j k: ',3i5) 
    939939 
    940940   END SUBROUTINE trc_bio_check 
Note: See TracChangeset for help on using the changeset viewer.