- Timestamp:
- 2018-12-01T12:33:31+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/TRP/trcrad.F90
r10314 r10365 153 153 ztrcorn = glob_sum( 'trcrad', MIN( 0., ptrn(:,:,:,jn) ) * cvol(:,:,:) ) 154 154 ! 155 ztrmasb = glob_sum( 'trcrad', MAX( 0., ptrb(:,:,:,jn) ) * cvol(:,:,:) )156 ztrmasn = glob_sum( 'trcrad', MAX( 0., ptrn(:,:,:,jn) ) * cvol(:,:,:) )157 !158 155 IF( ztrcorb /= 0 ) THEN 156 ztrmasb = glob_sum( 'trcrad', 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( 'trcrad', 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.