- Timestamp:
- 2017-08-17T13:39:18+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90
r8280 r8442 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 50 NAMELIST/namcfcdate/ ndate_beg, nyear_res, simu_type 52 NAMELIST/namcfcdia/ cfcdia2d ! additional diagnostics53 51 !!---------------------------------------------------------------------- 54 52 ! ! Open namelist files … … 82 80 ! 83 81 84 IF( .NOT.lk_iomput .AND. ln_diatrc ) THEN85 !86 ! Namelist namcfcdia87 ! -------------------88 REWIND( numnatc_ref ) ! Namelist namcfcdia in reference namelist : CFC diagnostics89 READ ( numnatc_ref, namcfcdia, IOSTAT = ios, ERR = 903)90 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdia in reference namelist', lwp )91 92 REWIND( numnatc_cfg ) ! Namelist namcfcdia in configuration namelist : CFC diagnostics93 READ ( numnatc_cfg, namcfcdia, IOSTAT = ios, ERR = 904 )94 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdia in configuration namelist', lwp )95 IF(lwm) WRITE ( numonc, namcfcdia )96 97 DO jl = 1, jp_cfc_2d98 jn = jp_cfc0_2d + jl - 199 ctrc2d(jn) = TRIM( cfcdia2d(jl)%sname )100 ctrc2l(jn) = TRIM( cfcdia2d(jl)%lname )101 ctrc2u(jn) = TRIM( cfcdia2d(jl)%units )102 END DO103 104 IF(lwp) THEN ! control print105 WRITE(numout,*)106 WRITE(numout,*) ' Namelist : natadd'107 DO jl = 1, jp_cfc_2d108 jn = jp_cfc0_2d + jl - 1109 WRITE(numout,*) ' 2d diag nb : ', jn, ' short name : ', ctrc2d(jn), &110 & ' long name : ', ctrc2l(jn), ' unit : ', ctrc2u(jn)111 END DO112 WRITE(numout,*) ' '113 ENDIF114 !115 ENDIF116 117 82 IF(lwm) CALL FLUSH ( numonc ) ! flush output namelist CFC 118 83
Note: See TracChangeset
for help on using the changeset viewer.