- 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/C14b/trcnam_c14b.F90
r6486 r8442 49 49 ! definition of additional diagnostic as a structure 50 50 INTEGER :: jl, jn 51 TYPE(DIAG), DIMENSION(jp_c14b_2d) :: c14dia2d52 TYPE(DIAG), DIMENSION(jp_c14b_3d) :: c14dia3d53 51 !! 54 52 NAMELIST/namc14date/ ndate_beg_b, nyear_res_b 55 NAMELIST/namc14dia/ c14dia2d, c14dia3d ! additional diagnostics56 53 !!------------------------------------------------------------------- 57 54 ! ! Open namelist file … … 77 74 IF(lwp) WRITE(numout,*) ' initial year (aa) nyear_beg_b = ', nyear_beg_b 78 75 ! 79 IF( .NOT.lk_iomput .AND. ln_diatrc ) THEN80 !81 ! Namelist namc14dia82 ! -------------------83 REWIND( numnatb_ref ) ! Namelist namc14dia in reference namelist : c14b diagnostics84 READ ( numnatb_ref, namc14dia, IOSTAT = ios, ERR = 903)85 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14dia in reference namelist', lwp )86 87 REWIND( numnatb_cfg ) ! Namelist namc14dia in configuration namelist : c14b diagnostics88 READ ( numnatb_cfg, namc14dia, IOSTAT = ios, ERR = 904 )89 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14dia in configuration namelist', lwp )90 IF(lwm) WRITE ( numonb, namc14dia )91 92 DO jl = 1, jp_c14b_2d93 jn = jp_c14b0_2d + jl - 194 ctrc2d(jn) = c14dia2d(jl)%sname95 ctrc2l(jn) = c14dia2d(jl)%lname96 ctrc2u(jn) = c14dia2d(jl)%units97 END DO98 99 DO jl = 1, jp_c14b_3d100 jn = jp_c14b0_3d + jl - 1101 ctrc3d(jn) = c14dia3d(jl)%sname102 ctrc3l(jn) = c14dia3d(jl)%lname103 ctrc3u(jn) = c14dia3d(jl)%units104 END DO105 106 IF(lwp) THEN ! control print107 WRITE(numout,*)108 WRITE(numout,*) ' Namelist : natadd'109 DO jl = 1, jp_c14b_3d110 jn = jp_c14b0_3d + jl - 1111 WRITE(numout,*) ' 3d diag nb : ', jn, ' short name : ', ctrc3d(jn), &112 & ' long name : ', ctrc3l(jn), ' unit : ', ctrc3u(jn)113 END DO114 WRITE(numout,*) ' '115 116 DO jl = 1, jp_c14b_2d117 jn = jp_c14b0_2d + jl - 1118 WRITE(numout,*) ' 2d diag nb : ', jn, ' short name : ', ctrc2d(jn), &119 & ' long name : ', ctrc2l(jn), ' unit : ', ctrc2u(jn)120 END DO121 WRITE(numout,*) ' '122 ENDIF123 !124 ENDIF125 76 126 77 IF(lwm) CALL FLUSH ( numonb ) ! flush output namelist C14b
Note: See TracChangeset
for help on using the changeset viewer.