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 8662 for branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90 – NEMO

Ignore:
Timestamp:
2017-10-26T13:15:54+02:00 (6 years ago)
Author:
andmirek
Message:

#1962 change variable names to follow NEMO coding convention

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90

    r8651 r8662  
    233233               &                    'at it= ', kt,' date= ', ndastp 
    234234            IF(lwp) WRITE(numout,*) '~~~~' 
    235             IF( lwxios ) CALL iom_swap(      wxios_context          ) 
    236                CALL iom_rstput( kt, nitrst, numrow, 'fwf_isf_b', fwfisf(:,:), lxios = lwxios ) 
    237                CALL iom_rstput( kt, nitrst, numrow, 'isf_hc_b' , risf_tsc(:,:,jp_tem), lxios = lwxios ) 
    238                CALL iom_rstput( kt, nitrst, numrow, 'isf_sc_b' , risf_tsc(:,:,jp_sal), lxios = lwxios ) 
     235            IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
     236               CALL iom_rstput( kt, nitrst, numrow, 'fwf_isf_b', fwfisf(:,:), ldxios = lwxios ) 
     237               CALL iom_rstput( kt, nitrst, numrow, 'isf_hc_b' , risf_tsc(:,:,jp_tem), ldxios = lwxios ) 
     238               CALL iom_rstput( kt, nitrst, numrow, 'isf_sc_b' , risf_tsc(:,:,jp_sal), ldxios = lwxios ) 
    239239            IF( lwxios ) CALL iom_swap(      cxios_context          ) 
    240240         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.