New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5343 for branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90 – NEMO

Ignore:
Timestamp:
2015-06-04T09:48:48+02:00 (9 years ago)
Author:
smasson
Message:

dev_r5218_CNRS17_coupling: update and bugfix (mainly) for SAS

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90

    r5331 r5343  
    4242   USE step_oce        ! module used in the ocean time stepping module 
    4343   USE sbc_oce         ! surface boundary condition: ocean 
    44    USE cla             ! cross land advection               (tra_cla routine) 
    4544   USE domcfg          ! domain configuration               (dom_cfg routine) 
    4645   USE daymod          ! calendar 
     
    5049   USE step            ! NEMO time-stepping                 (stp     routine) 
    5150   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 
    5254#if defined key_iomput 
    5355   USE xios 
     
    182184      ! 
    183185      cltxt = '' 
    184       cxios_context = 'sas' 
    185186      ! 
    186187      !                             ! Open reference namelist and configuration namelist files 
     
    188189         CALL ctl_opn( numnam_ref, 'namelist_sas_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 
    189190         CALL ctl_opn( numnam_cfg, 'namelist_sas_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 
     191         cxios_context = 'sas' 
    190192      ELSE 
    191193         CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 
    192194         CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 
    193       ENDIF 
     195         cxios_context = 'nemo' 
     196   ENDIF 
    194197      ! 
    195198      REWIND( numnam_ref )              ! Namelist namctl in reference namelist : Control prints & Benchmark 
     
    505508      ierr = ierr + dom_oce_alloc   ()          ! ocean domain 
    506509      ALLOCATE( snwice_mass(jpi,jpj)  , snwice_mass_b(jpi,jpj),             & 
    507          &      snwice_fmass(jpi,jpj), STAT= ierr4 ) 
     510         &      snwice_fmass(jpi,jpj), STAT= ierr1 ) 
    508511      ! 
    509512      ! lim code currently uses surface temperature and salinity in tsn array for initialisation 
Note: See TracChangeset for help on using the changeset viewer.