- Timestamp:
- 2018-11-07T18:25:49+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/TOP/TRP/trcrad.F90
r9788 r10288 29 29 30 30 !!---------------------------------------------------------------------- 31 !! NEMO/TOP 3.3, NEMO Consortium (2018)31 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 32 32 !! $Id$ 33 !! Software governed by the CeCILL licen ce (./LICENSE)33 !! Software governed by the CeCILL license (see ./LICENSE) 34 34 !!---------------------------------------------------------------------- 35 35 CONTAINS … … 153 153 ztrcorn = glob_sum( MIN( 0., ptrn(:,:,:,jn) ) * cvol(:,:,:) ) 154 154 ! 155 ztrmasb = glob_sum( MAX( 0., ptrb(:,:,:,jn) ) * cvol(:,:,:) )156 ztrmasn = glob_sum( MAX( 0., ptrn(:,:,:,jn) ) * cvol(:,:,:) )157 !158 155 IF( ztrcorb /= 0 ) THEN 156 ztrmasb = glob_sum( MAX( 0., ptrb(:,:,:,jn) ) * cvol(:,:,:) ) 159 157 zcoef = 1. + ztrcorb / ztrmasb 160 158 DO jk = 1, jpkm1 … … 165 163 ! 166 164 IF( ztrcorn /= 0 ) THEN 165 ztrmasn = glob_sum( MAX( 0., ptrn(:,:,:,jn) ) * cvol(:,:,:) ) 167 166 zcoef = 1. + ztrcorn / ztrmasn 168 167 DO jk = 1, jpkm1
Note: See TracChangeset
for help on using the changeset viewer.