Changeset 5605 for branches/NERC/dev_r5589_marine_glacier_termini/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90
- Timestamp:
- 2015-07-16T20:05:07+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5589_marine_glacier_termini/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90
r5102 r5605 114 114 ! 115 115 CASE( 0 ) !== newtonian damping throughout the water column ==! 116 resto = 0.0_wp ! need to be restore before submissionto the trunk 117 !WHERE (un(3:11,3:7,:) .GE. 1.e-2) 118 ! resto(3:11,3:7,:) = 1._wp/1440._wp 119 !END WHERE 120 WHERE (un(12,3:7,:) .GE. 1.e-2) 121 resto(12,3:7,:) = 1._wp/1440._wp 122 END WHERE 116 123 DO jk = 1, jpkm1 117 124 DO jj = 2, jpjm1 … … 240 247 241 248 !Read in mask from file 242 CALL iom_open ( cn_resto, imask) 243 CALL iom_get ( imask, jpdom_autoglo, 'resto', resto) 244 CALL iom_close( imask ) 249 ! need to be restore before submission to the trunk 250 ! CALL iom_open ( cn_resto, imask) 251 ! CALL iom_get ( imask, jpdom_autoglo, 'resto', resto) 252 ! CALL iom_close( imask ) 253 resto = 0.0_wp 254 WHERE (un(2:10,2,:) .LE. 1.e-3) 255 resto(2:10,2,:) = 1._wp/86400._wp 256 END WHERE 245 257 ENDIF 246 258
Note: See TracChangeset
for help on using the changeset viewer.