- Timestamp:
- 2011-08-09T10:29:53+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90
r2715 r2819 16 16 USE trc ! TOP variables 17 17 USE trcsms_cfc ! CFC specific variable 18 USE iom ! I/O manager 18 19 19 20 IMPLICIT NONE … … 41 42 !! ** input : Namelist namcfc 42 43 !!---------------------------------------------------------------------- 43 INTEGER :: numnatc 44 #if defined key_diatrc && ! defined key_iomput 45 ! definition of additional diagnostic as a structure 44 INTEGER :: numnatc 46 45 INTEGER :: jl, jn 47 TYPE DIAG 48 CHARACTER(len = 20) :: snamedia !: short name 49 CHARACTER(len = 80 ) :: lnamedia !: long name 50 CHARACTER(len = 20 ) :: unitdia !: unit 51 END TYPE DIAG 52 53 TYPE(DIAG) , DIMENSION(jp_cfc_2d) :: cfcdia2d 54 #endif 46 TYPE(DIAG), DIMENSION(jp_cfc_2d) :: cfcdia2d 55 47 !! 56 48 NAMELIST/namcfcdate/ ndate_beg, nyear_res 57 #if defined key_diatrc && ! defined key_iomput 58 NAMELIST/namcfcdia/nn_writedia, cfcdia2d ! additional diagnostics 59 #endif 49 NAMELIST/namcfcdia/ cfcdia2d ! additional diagnostics 60 50 !!------------------------------------------------------------------- 61 51 … … 78 68 IF(lwp) WRITE(numout,*) ' initial year (aa) nyear_beg = ', nyear_beg 79 69 ! 80 #if defined key_diatrc && ! defined key_iomput81 70 82 ! Namelist namcfcdia 83 ! ------------------- 84 nn_writedia = 10 ! default values 71 IF( .NOT.lk_iomput .AND. ln_diatrc ) THEN 72 ! 73 ! Namelist namcfcdia 74 ! ------------------- 75 DO jl = 1, jp_cfc_2d 76 WRITE(cfcdia2d(jl)%sname,'("2D_",I1)') jl ! short name 77 WRITE(cfcdia2d(jl)%lname,'("2D DIAGNOSTIC NUMBER ",I2)') jl ! long name 78 cfcdia2d(jl)%units = ' ' ! units 79 END DO 85 80 86 DO jl = 1, jp_cfc_2d 87 jn = jp_cfc0_2d + jl - 1 88 WRITE(ctrc2d(jn),'("2D_",I1)') jn ! short name 89 WRITE(ctrc2l(jn),'("2D DIAGNOSTIC NUMBER ",I2)') jn ! long name 90 ctrc2u(jn) = ' ' ! units 91 END DO 81 REWIND( numnatc ) ! read natrtd 82 READ ( numnatc, namcfcdia ) 92 83 93 REWIND( numnatc ) ! read natrtd94 READ ( numnatc, namcfcdia )95 96 DO jl = 1, jp_cfc_2d97 jn = jp_cfc0_2d + jl - 198 ctrc2d(jn) = cfcdia2d(jl)%snamedia99 ctrc2l(jn) = cfcdia2d(jl)%lnamedia100 ctrc2u(jn) = cfcdia2d(jl)%unitdia101 END DO102 103 104 IF(lwp) THEN ! control print105 WRITE(numout,*)106 WRITE(numout,*) ' Namelist : natadd'107 WRITE(numout,*) ' frequency of outputs for additional arrays nn_writedia = ', nn_writedia108 84 DO jl = 1, jp_cfc_2d 109 85 jn = jp_cfc0_2d + jl - 1 110 WRITE(numout,*) ' 2d output field No : ',jn 111 WRITE(numout,*) ' short name : ', TRIM(ctrc2d(jn)) 112 WRITE(numout,*) ' long name : ', TRIM(ctrc2l(jn)) 113 WRITE(numout,*) ' unit : ', TRIM(ctrc2u(jn)) 86 ctrc2d(jn) = TRIM( cfcdia2d(jl)%sname ) 87 ctrc2l(jn) = TRIM( cfcdia2d(jl)%lname ) 88 ctrc2u(jn) = TRIM( cfcdia2d(jl)%units ) 89 END DO 90 91 IF(lwp) THEN ! control print 92 WRITE(numout,*) 93 WRITE(numout,*) ' Namelist : natadd' 94 DO jl = 1, jp_cfc_2d 95 jn = jp_cfc0_2d + jl - 1 96 WRITE(numout,*) ' 2d diag nb : ', jn, ' short name : ', ctrc2d(jn), & 97 & ' long name : ', ctrc2l(jn), ' unit : ', ctrc2u(jn) 98 END DO 114 99 WRITE(numout,*) ' ' 115 END DO 100 ENDIF 101 ! 116 102 ENDIF 117 #endif118 103 119 104 END SUBROUTINE trc_nam_cfc
Note: See TracChangeset
for help on using the changeset viewer.