- Timestamp:
- 2015-06-04T09:48:48+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90
r5331 r5343 42 42 USE step_oce ! module used in the ocean time stepping module 43 43 USE sbc_oce ! surface boundary condition: ocean 44 USE cla ! cross land advection (tra_cla routine)45 44 USE domcfg ! domain configuration (dom_cfg routine) 46 45 USE daymod ! calendar … … 50 49 USE step ! NEMO time-stepping (stp routine) 51 50 USE lib_mpp ! distributed memory computing 51 #if defined key_nosignedzero 52 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 53 #endif 52 54 #if defined key_iomput 53 55 USE xios … … 182 184 ! 183 185 cltxt = '' 184 cxios_context = 'sas'185 186 ! 186 187 ! ! Open reference namelist and configuration namelist files … … 188 189 CALL ctl_opn( numnam_ref, 'namelist_sas_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 189 190 CALL ctl_opn( numnam_cfg, 'namelist_sas_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 191 cxios_context = 'sas' 190 192 ELSE 191 193 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 192 194 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 193 ENDIF 195 cxios_context = 'nemo' 196 ENDIF 194 197 ! 195 198 REWIND( numnam_ref ) ! Namelist namctl in reference namelist : Control prints & Benchmark … … 505 508 ierr = ierr + dom_oce_alloc () ! ocean domain 506 509 ALLOCATE( snwice_mass(jpi,jpj) , snwice_mass_b(jpi,jpj), & 507 & snwice_fmass(jpi,jpj), STAT= ierr 4)510 & snwice_fmass(jpi,jpj), STAT= ierr1 ) 508 511 ! 509 512 ! lim code currently uses surface temperature and salinity in tsn array for initialisation
Note: See TracChangeset
for help on using the changeset viewer.