Ignore:
Timestamp:
2018-12-01T12:33:31+01:00 (22 months ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: merge with dev_r9866_HPC_03_globcom, see #2133

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/TRP/trcrad.F90

    r10314 r10365  
    153153            ztrcorn = glob_sum( 'trcrad', MIN( 0., ptrn(:,:,:,jn) ) * cvol(:,:,:) ) 
    154154            ! 
    155             ztrmasb = glob_sum( 'trcrad', MAX( 0., ptrb(:,:,:,jn) ) * cvol(:,:,:) ) 
    156             ztrmasn = glob_sum( 'trcrad', MAX( 0., ptrn(:,:,:,jn) ) * cvol(:,:,:) ) 
    157             ! 
    158155            IF( ztrcorb /= 0 ) THEN 
     156               ztrmasb = glob_sum( 'trcrad', MAX( 0., ptrb(:,:,:,jn) ) * cvol(:,:,:) ) 
    159157               zcoef = 1. + ztrcorb / ztrmasb 
    160158               DO jk = 1, jpkm1 
     
    165163            ! 
    166164            IF( ztrcorn /= 0 ) THEN 
     165               ztrmasn = glob_sum( 'trcrad', MAX( 0., ptrn(:,:,:,jn) ) * cvol(:,:,:) ) 
    167166               zcoef = 1. + ztrcorn / ztrmasn 
    168167               DO jk = 1, jpkm1 
Note: See TracChangeset for help on using the changeset viewer.