Changeset 9987 for branches/UKMO/dev_r5518_obs_oper_update_icethick/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90
- Timestamp:
- 2018-07-23T11:33:03+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_obs_oper_update_icethick/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90
r7960 r9987 47 47 INTEGER :: ios ! Local integer output status for namelist read 48 48 INTEGER :: jl, jn 49 TYPE(DIAG), DIMENSION(jp_cfc_2d) :: cfcdia2d50 49 !! 51 NAMELIST/namcfcdate/ ndate_beg, nyear_res 52 NAMELIST/namcfcdia/ cfcdia2d ! additional diagnostics 50 NAMELIST/namcfcdate/ ndate_beg, nyear_res, simu_type 53 51 !!---------------------------------------------------------------------- 54 52 ! ! Open namelist files … … 72 70 WRITE(numout,*) ' initial calendar date (aammjj) for CFC ndate_beg = ', ndate_beg 73 71 WRITE(numout,*) ' restoring time constant (year) nyear_res = ', nyear_res 72 IF (simu_type==1) THEN 73 WRITE(numout,*) ' CFC running on SPIN-UP mode simu_type = ', simu_type 74 ELSEIF (simu_type==2) THEN 75 WRITE(numout,*) ' CFC running on HINDCAST/PROJECTION mode simu_type = ', simu_type 76 ENDIF 74 77 ENDIF 75 78 nyear_beg = ndate_beg / 10000 76 79 IF(lwp) WRITE(numout,*) ' initial year (aa) nyear_beg = ', nyear_beg 77 80 ! 78 79 IF( .NOT.lk_iomput .AND. ln_diatrc ) THEN80 !81 ! Namelist namcfcdia82 ! -------------------83 REWIND( numnatc_ref ) ! Namelist namcfcdia in reference namelist : CFC diagnostics84 READ ( numnatc_ref, namcfcdia, IOSTAT = ios, ERR = 903)85 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdia in reference namelist', lwp )86 87 REWIND( numnatc_cfg ) ! Namelist namcfcdia in configuration namelist : CFC diagnostics88 READ ( numnatc_cfg, namcfcdia, IOSTAT = ios, ERR = 904 )89 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdia in configuration namelist', lwp )90 IF(lwm) WRITE ( numonc, namcfcdia )91 92 DO jl = 1, jp_cfc_2d93 jn = jp_cfc0_2d + jl - 194 ctrc2d(jn) = TRIM( cfcdia2d(jl)%sname )95 ctrc2l(jn) = TRIM( cfcdia2d(jl)%lname )96 ctrc2u(jn) = TRIM( cfcdia2d(jl)%units )97 END DO98 99 IF(lwp) THEN ! control print100 WRITE(numout,*)101 WRITE(numout,*) ' Namelist : natadd'102 DO jl = 1, jp_cfc_2d103 jn = jp_cfc0_2d + jl - 1104 WRITE(numout,*) ' 2d diag nb : ', jn, ' short name : ', ctrc2d(jn), &105 & ' long name : ', ctrc2l(jn), ' unit : ', ctrc2u(jn)106 END DO107 WRITE(numout,*) ' '108 ENDIF109 !110 ENDIF111 81 112 82 IF(lwm) CALL FLUSH ( numonc ) ! flush output namelist CFC
Note: See TracChangeset
for help on using the changeset viewer.