Changeset 6715 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90
- Timestamp:
- 2016-06-16T18:58:14+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90
r5735 r6715 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.