Changeset 9927 for NEMO/trunk/src/TOP
- Timestamp:
- 2018-07-11T14:49:16+02:00 (6 years ago)
- Location:
- NEMO/trunk/src/TOP/TRP
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/TRP/trcbbl.F90
r9598 r9927 46 46 !!---------------------------------------------------------------------- 47 47 INTEGER, INTENT( in ) :: kt ! ocean time-step 48 INTEGER :: jn ! loop index 48 49 CHARACTER (len=22) :: charout 49 50 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:,:) :: ztrtrd -
NEMO/trunk/src/TOP/TRP/trdmxl_trc_rst.F90
r9598 r9927 194 194 CONTAINS 195 195 SUBROUTINE trd_mxl_trc_rst_opn( kt ) 196 IMPLICIT NONE 197 INTEGER, INTENT( in ) :: kt 196 198 WRITE(*,*) 'trd_mxl_trc_rst_opn: You should not have seen this print! error?', kt 197 199 END SUBROUTINE trd_mxl_trc_rst_opn 198 200 SUBROUTINE trd_mxl_trc_rst_write( kt ) ! No ML diags ==> empty routine 201 IMPLICIT NONE 202 INTEGER, INTENT( in ) :: kt 199 203 WRITE(*,*) 'trd_mxl_trc_rst_wri: You should not have seen this print! error?', kt 200 204 END SUBROUTINE trd_mxl_trc_rst_write 201 205 SUBROUTINE trd_mxl_trc_rst_read ! No ML Diags ==> empty routine 206 IMPLICIT NONE 202 207 END SUBROUTINE trd_mxl_trc_rst_read 203 208 #endif
Note: See TracChangeset
for help on using the changeset viewer.