Changeset 11404 for branches/UKMO/dev_r5518_GO6_package_FOAMv14_STOPACK/NEMOGCM/NEMO/OPA_SRC/STO/stopack.F90
- Timestamp:
- 2019-08-06T11:15:02+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_FOAMv14_STOPACK/NEMOGCM/NEMO/OPA_SRC/STO/stopack.F90
r11394 r11404 2247 2247 CALL lbc_lnk(dpsiu,'T',1._wp) 2248 2248 #ifdef key_iomput 2249 CALL iom_put( "bsft" , dpsiu )2249 !CALL iom_put( "bsft" , dpsiu ) 2250 2250 #endif 2251 2251 ENDIF … … 2253 2253 CALL lbc_lnk(dpsiv,'T',1._wp) 2254 2254 #ifdef key_iomput 2255 CALL iom_put( "bsftv" , dpsiv )2255 !CALL iom_put( "bsftv" , dpsiv ) 2256 2256 #endif 2257 2257 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.