- Timestamp:
- 2018-09-24T11:47:08+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90
r9321 r10149 49 49 #if defined key_lim3 50 50 USE ice 51 #endif 52 #if defined key_top 53 USE asmbgc, ONLY: asm_bgc_bkg_wri 51 54 #endif 52 55 USE timing … … 125 128 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 126 129 ! 130 #if defined key_top 131 CALL asm_bgc_bkg_wri( kt, inum ) 132 ! 133 #endif 127 134 CALL iom_close( inum ) 128 135 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.