- Timestamp:
- 2017-06-21T16:27:21+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6M_dev/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90
r6486 r8201 49 49 TYPE(DIAG), DIMENSION(jp_cfc_2d) :: cfcdia2d 50 50 !! 51 NAMELIST/namcfcdate/ ndate_beg, nyear_res 51 NAMELIST/namcfcdate/ ndate_beg, nyear_res, simu_type 52 52 NAMELIST/namcfcdia/ cfcdia2d ! additional diagnostics 53 53 !!---------------------------------------------------------------------- … … 72 72 WRITE(numout,*) ' initial calendar date (aammjj) for CFC ndate_beg = ', ndate_beg 73 73 WRITE(numout,*) ' restoring time constant (year) nyear_res = ', nyear_res 74 IF (simu_type==1) THEN 75 WRITE(numout,*) ' CFC running on SPIN-UP mode simu_type = ', simu_type 76 ELSEIF (simu_type==2) THEN 77 WRITE(numout,*) ' CFC running on HINDCAST/PROJECTION mode simu_type = ', simu_type 78 ENDIF 74 79 ENDIF 75 80 nyear_beg = ndate_beg / 10000
Note: See TracChangeset
for help on using the changeset viewer.