Changeset 4309
- Timestamp:
- 2013-11-22T09:18:20+01:00 (10 years ago)
- Location:
- branches/2013/dev_MERGE_2013/NEMOGCM/NEMO
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90
r4306 r4309 75 75 CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 76 76 CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 77 CALL ctl_opn( numoni, 'output.namelist.ice', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 77 CALL ctl_opn( numoni, 'output.namelist.ice', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 78 78 79 ! When Diurnal cycle, core bulk and LIM2 are activated, 79 80 ! a daily mean qsr is computed for tracer/biogeochemistery model ! -
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_3/iceini.F90
r4298 r4309 74 74 CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 75 75 CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 76 CALL ctl_opn( numoni, 'output.namelist.ice', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )76 CALL ctl_opn( numoni, 'output.namelist.ice', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 77 77 ! 78 78 CALL ice_run ! set some ice run parameters -
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mle.F90
r4245 r4309 117 117 END DO 118 118 END DO 119 ikmax = MAX VAL( inml_mle(:,:)) ! max level of the computation119 ikmax = MAX( MAXVAL( inml_mle(:,:), jpkm1 ) ! max level of the computation 120 120 ! 121 121 ! -
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r4292 r4309 261 261 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', .TRUE. ) 262 262 WRITE( numond, namcfg ) 263 263 264 ! Force values for AGRIF zoom (cf. agrif_user.F90) 264 265 #if defined key_agrif -
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r4290 r4309 187 187 CALL ctl_opn( numnat_ref, 'namelist_top_ref' , 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 188 188 CALL ctl_opn( numnat_cfg, 'namelist_top_cfg' , 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 189 CALL ctl_opn( numont , 'output.namelist.top', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., narea)189 CALL ctl_opn( numont , 'output.namelist.top', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., 1 ) 190 190 191 191 REWIND( numnat_ref ) ! Namelist namtrc in reference namelist : Passive tracer variables
Note: See TracChangeset
for help on using the changeset viewer.