- Timestamp:
- 2021-05-05T14:53:08+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/USR/usrdef_sbc.F90
r14644 r14791 131 131 END_2D 132 132 133 zsumemp = GLOB_SUM( 'usrdef_sbc', emp (:,:) )134 zsurf = GLOB_SUM( 'usrdef_sbc', tmask(:,:,1) )133 zsumemp = glob_sum( 'usrdef_sbc', emp (:,:) ) 134 zsurf = glob_sum( 'usrdef_sbc', tmask(:,:,1) ) 135 135 zsumemp = zsumemp / zsurf ! Default GYRE configuration 136 136
Note: See TracChangeset
for help on using the changeset viewer.