Changeset 7103 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO
- Timestamp:
- 2016-10-26T12:52:54+02:00 (8 years ago)
- Location:
- branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/AGE/trcini_age.F90
r7097 r7103 10 10 USE oce_trc 11 11 USE trc 12 USE trcnam_age ! AGE SMS namelist13 12 USE trcsms_age 14 13 … … 39 38 IF(lwp) WRITE(numout,*) ' trc_ini_age: passive tracer age' 40 39 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~' 40 IF(lwp) WRITE(numout,*) 41 41 42 CALL trc_nam_age 42 43 ctrcnm (jp_age) = 'Age' 44 ctrcln (jp_age) = 'Sea water age since surface contact' 45 ctrcun (jp_age) = 'year' 46 ln_trc_ini(jp_age) = .false. 47 ! 48 ln_trc_sbc(jp_age) = .false. 49 ln_trc_cbc(jp_age) = .false. 50 ln_trc_obc(jp_age) = .false. 43 51 44 52 rryear = 1._wp / ( nyear_len(1) * rday ) ! recip number of seconds in one year -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/AGE/trcnam_age.F90
r7097 r7103 38 38 !!---------------------------------------------------------------------- 39 39 40 ctrcnm (jp_age) = 'Age' 41 ctrcln (jp_age) = 'Sea water age since surface contact' 42 ctrcun (jp_age) = 'year' 43 ln_trc_ini(jp_age) = .false. 44 ! 45 ln_trc_sbc(jp_age) = '' 46 ln_trc_cbc(jp_age) = '' 47 ln_trc_obc(jp_age) = '' 48 ! 49 50 REWIND( numtrc_ref ) ! Namelist namagedate in reference namelist : AGE parameters 51 READ ( numtrc_ref, namage, IOSTAT = ios, ERR = 901) 40 REWIND( numnat_ref ) ! Namelist namagedate in reference namelist : AGE parameters 41 READ ( numnat_ref, namage, IOSTAT = ios, ERR = 901) 52 42 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namage in reference namelist', lwp ) 53 43 54 REWIND( num trc_cfg ) ! Namelist namagedate in configuration namelist : AGE parameters55 READ ( num trc_cfg, namage, IOSTAT = ios, ERR = 902 )44 REWIND( numnat_cfg ) ! Namelist namagedate in configuration namelist : AGE parameters 45 READ ( numnat_cfg, namage, IOSTAT = ios, ERR = 902 ) 56 46 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namage in configuration namelist', lwp ) 57 IF(lwm) WRITE ( numon r, namage )47 IF(lwm) WRITE ( numont, namage ) 58 48 59 49 IF(lwp) THEN ! control print 60 50 WRITE(numout,*) ' ' 61 51 WRITE(numout,*) ' Sea Age Tracer' 62 WRITE(numout,*) ' tracer nb : ', jp_age, ' short name : ', TRIM( ctrcnm(jp_age) )63 52 WRITE(numout,*) 64 53 WRITE(numout,*) ' trc_nam_age: Read namage, namelist for Age passive tracer' … … 69 58 ENDIF 70 59 71 IF(lwm) CALL FLUSH ( numonr ) ! flush output namelist 72 60 ! 73 61 END SUBROUTINE trc_nam_age 74 62 -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/C14/trcnam_c14.F90
r7068 r7103 62 62 WRITE(numout,*) ' ' 63 63 WRITE(numout,*) ' Radiocarbon C14' 64 WRITE(numout,*) ' tracer nb : ', jp_c14, ' short name : ', TRIM( ctrcnm(jp_c14) )65 64 WRITE(numout,*) ' ' 66 65 WRITE(numout,*) ' Namelist namc14_typ' -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90
r7068 r7103 71 71 WRITE(numout,*) ' ' 72 72 WRITE(numout,*) ' CFCs' 73 IF( ln_cfc11 ) WRITE(numout,*) ' tracer nb : ', jp_cfc0, ' short name : ', TRIM( ctrcnm(jp_cfc0) )74 IF( ln_cfc12 ) WRITE(numout,*) ' tracer nb : ', jp_cfc1, ' short name : ', TRIM( ctrcnm(jp_cfc1) )75 73 WRITE(numout,*) ' ' 76 74 WRITE(numout,*) ' trc_nam: Read namdates, namelist for CFC chemical model' -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/trc.F90
r7097 r7103 115 115 !! information for inputs 116 116 !! -------------------------------------------------- 117 LOGICAL 118 LOGICAL 119 LOGICAL 120 LOGICAL 117 LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: ln_trc_ini !: Initialisation from data input file 118 LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: ln_trc_obc !: Use open boundary condition data 119 LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: ln_trc_sbc !: Use surface boundary condition data 120 LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: ln_trc_cbc !: Use coastal boundary condition data 121 121 122 122 -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r7097 r7103 63 63 CALL top_alloc() ! allocate TOP arrays 64 64 ! 65 IF(.NOT.ln_trcdta ) ln_trc_ini(:) = .FALSE. 65 66 ! 66 67 IF(lwp) WRITE(numout,*) -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r7097 r7103 64 64 IF( ln_trcdmp .OR. ln_trcdmp_clo ) ln_trcdta = .TRUE. ! damping : need to have clim data 65 65 ! 66 IF( .NOT.ln_trcdta ) ln_trc_ini(:) = .FALSE.67 66 68 67 IF(lwp) THEN ! control print … … 230 229 ENDIF 231 230 ! 232 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'trc_nam_ice: unable to allocate arrays' )233 ! 234 IF( l n_age .OR. ll_cfc .OR. ln_c14 ) THEN231 IF( ln_age ) CALL trc_nam_age 232 ! 233 IF( ll_cfc .OR. ln_c14 ) THEN 235 234 ! ! Open namelist files 236 235 CALL ctl_opn( numtrc_ref, 'namelist_trc_ref' , 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
Note: See TracChangeset
for help on using the changeset viewer.