- Timestamp:
- 2016-11-28T17:04:10+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_INGV_UKMO_2016/NEMOGCM/NEMO/TOP_SRC/TRP/trdmxl_trc.F90
r5836 r7351 66 66 67 67 !! * Substitutions 68 # include "domzgr_substitute.h90"69 68 # include "zdfddm_substitute.h90" 70 69 !!---------------------------------------------------------------------- … … 175 174 DO jj = 1, jpj 176 175 DO ji = 1, jpi 177 IF( jk - nmld_trc(ji,jj) < 0 ) wkx_trc(ji,jj,jk) = fse3t(ji,jj,jk) * tmask(ji,jj,jk)176 IF( jk - nmld_trc(ji,jj) < 0 ) wkx_trc(ji,jj,jk) = e3t_n(ji,jj,jk) * tmask(ji,jj,jk) 178 177 END DO 179 178 END DO … … 293 292 DO jj = 1,jpj 294 293 DO ji = 1,jpi 295 IF( jk - nmld_trc(ji,jj) < 0. ) wkx_trc(ji,jj,jk) = fse3t(ji,jj,jk) * tmask(ji,jj,jk)294 IF( jk - nmld_trc(ji,jj) < 0. ) wkx_trc(ji,jj,jk) = e3t_n(ji,jj,jk) * tmask(ji,jj,jk) 296 295 END DO 297 296 END DO … … 330 329 !! 331 330 !! ** Purpose : Compute and cumulate the mixed layer trends over an analysis 332 !! period, and write NetCDF (or dimg)outputs.331 !! period, and write NetCDF outputs. 333 332 !! 334 333 !! ** Method/usage : … … 390 389 ! 391 390 CHARACTER (LEN=10) :: clvar 392 #if defined key_dimgout393 INTEGER :: iyear,imon,iday394 CHARACTER(LEN=80) :: cltext, clmode395 #endif396 391 !!---------------------------------------------------------------------- 397 392 … … 417 412 DO jn = 1, jptra 418 413 IF( ln_trdtrc(jn) ) & 419 tmltrd_trc(ji,jj,jpmxl_trc_zdf,jn) = - zavt / fse3w(ji,jj,ik) * tmask(ji,jj,ik) &414 tmltrd_trc(ji,jj,jpmxl_trc_zdf,jn) = - zavt / e3w_n(ji,jj,ik) * tmask(ji,jj,ik) & 420 415 & * ( trn(ji,jj,ik-1,jn) - trn(ji,jj,ik,jn) ) & 421 416 & / MAX( 1., rmld_trc(ji,jj) ) * tmask(ji,jj,1) … … 774 769 ! ====================================================================== 775 770 776 ! IV.1 Code for dimg mpp output 777 ! ----------------------------- 778 779 # if defined key_dimgout 780 STOP 'Not implemented' 781 # else 782 783 ! IV.2 Code for IOIPSL/NetCDF output 771 ! IV.1 Code for IOIPSL/NetCDF output 784 772 ! ---------------------------------- 785 773 … … 865 853 icount = 1 866 854 867 # endif /* key_dimgout */868 869 855 IF( MOD( itmod, nn_trd_trc ) == 0 ) THEN 870 856 ! … … 896 882 !! 897 883 !! ** Purpose : Compute and cumulate the mixed layer biological trends over an analysis 898 !! period, and write NetCDF (or dimg)outputs.884 !! period, and write NetCDF outputs. 899 885 !! 900 886 !! ** Method/usage : … … 943 929 LOGICAL :: llwarn = .TRUE., lldebug = .TRUE. 944 930 REAL(wp) :: zfn, zfn2 945 #if defined key_dimgout946 INTEGER :: iyear,imon,iday947 CHARACTER(LEN=80) :: cltext, clmode948 #endif949 931 !!---------------------------------------------------------------------- 950 932 ! ... Warnings … … 1055 1037 ! ====================================================================== 1056 1038 1057 ! IV.1 Code for dimg mpp output 1058 ! ----------------------------- 1059 1060 # if defined key_dimgout 1061 STOP 'Not implemented' 1062 # else 1063 1064 ! IV.2 Code for IOIPSL/NetCDF output 1039 ! IV.1 Code for IOIPSL/NetCDF output 1065 1040 ! ---------------------------------- 1066 1041 … … 1107 1082 1108 1083 1109 # endif /* key_dimgout */1110 1084 1111 1085 IF( MOD( itmod, nn_trd_trc ) == 0 ) THEN … … 1258 1232 ! ====================================================================== 1259 1233 1260 #if defined key_dimgout1261 ???1262 #else1263 1234 ! clmxl = legend root for netCDF output 1264 1235 IF( nn_ctls_trc == 0 ) THEN ! control surface = mixed-layer with density criterion … … 1403 1374 #endif 1404 1375 1405 #endif /* key_dimgout */1406 1376 END SUBROUTINE trd_mxl_trc_init 1407 1377
Note: See TracChangeset
for help on using the changeset viewer.