- Timestamp:
- 2013-11-04T12:51:55+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_if.F90
r3625 r4147 59 59 INTEGER :: ji, jj ! dummy loop indices 60 60 INTEGER :: ierror ! return error code 61 INTEGER :: ios ! Local integer output status for namelist read 61 62 REAL(wp) :: ztrp, zsice, zt_fzp, zfr_obs 62 63 REAL(wp) :: zqri, zqrj, zqrp, zqi … … 70 71 ! ! ====================== ! 71 72 ! set file information 72 cn_dir = './' ! directory in which the model is executed 73 ! ... default values (NB: frequency positive => hours, negative => months) 74 ! ! file ! frequency ! variable ! time intep ! clim ! 'yearly' or ! weights ! rotation ! 75 ! ! name ! (hours) ! name ! (T/F) ! (T/F) ! 'monthly' ! filename ! pairs ! 76 sn_ice = FLD_N('ice_cover', -1 , 'ice_cov' , .true. , .true. , 'yearly' , '' , '' ) 73 REWIND( numnam_ref ) ! Namelist namsbc_iif in reference namelist : Ice if file 74 READ ( numnam_ref, namsbc_iif, IOSTAT = ios, ERR = 901) 75 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in reference namelist', lwp ) 77 76 78 REWIND ( numnam ) ! ... read in namlist namiif 79 READ ( numnam, namsbc_iif ) 77 REWIND( numnam_cfg ) ! Namelist Namelist namsbc_iif in configuration namelist : Ice if file 78 READ ( numnam_cfg, namsbc_iif, IOSTAT = ios, ERR = 902 ) 79 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist', lwp ) 80 WRITE ( numond, namsbc_iif ) 80 81 81 82 ALLOCATE( sf_ice(1), STAT=ierror )
Note: See TracChangeset
for help on using the changeset viewer.