- Timestamp:
- 2020-04-11T15:38:38+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/ZDF/zdfdrg.F90
r12586 r12738 362 362 ! cl_varname is a coefficient in [0,1] giving where to apply the regional boost 363 363 CALL iom_open ( TRIM(cl_file), inum ) 364 CALL iom_get ( inum, jpdom_ data, TRIM(cl_varname), zmsk_boost, 1 )364 CALL iom_get ( inum, jpdom_global, TRIM(cl_varname), zmsk_boost, 1 ) 365 365 CALL iom_close( inum) 366 366 zmsk_boost(:,:) = 1._wp + rn_boost * zmsk_boost(:,:)
Note: See TracChangeset
for help on using the changeset viewer.