- Timestamp:
- 2018-10-29T15:20:26+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/TOP_SRC/trcrst.F90
r10249 r10251 28 28 USE iom 29 29 USE daymod 30 ! +++>>> FABM31 USE trcrst_fabm32 ! FABM <<<+++33 30 IMPLICIT NONE 34 31 PRIVATE … … 120 117 CALL iom_get( numrtr, jpdom_autoglo, 'TRB'//ctrcnm(jn), trb(:,:,:,jn) ) 121 118 END DO 122 ! +++>>> FABM123 124 IF (lk_fabm) CALL trc_rst_read_fabm125 ! FABM <<<+++126 119 ! 127 120 END SUBROUTINE trc_rst_read … … 149 142 CALL iom_rstput( kt, nitrst, numrtw, 'TRB'//ctrcnm(jn), trb(:,:,:,jn) ) 150 143 END DO 151 ! +++>>> FABM152 IF (lk_fabm) CALL trc_rst_wri_fabm(kt)153 ! FABM <<<+++154 144 ! 155 145 IF( kt == nitrst ) THEN
Note: See TracChangeset
for help on using the changeset viewer.