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/ZDF – NEMO

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

#1962 change variable names to follow NEMO coding convention

Location:
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/ZDF
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r8651 r8662  
    12101210         !                                   ! ------------------- 
    12111211         IF(lwp) WRITE(numout,*) '---- gls-rst ----' 
    1212          IF( lwxios ) CALL iom_swap(      wxios_context          ) 
    1213          CALL iom_rstput( kt, nitrst, numrow, 'en'   , en, lxios = lwxios      )  
    1214          CALL iom_rstput( kt, nitrst, numrow, 'avt'  , avt_k, lxios = lwxios  ) 
    1215          CALL iom_rstput( kt, nitrst, numrow, 'avm'  , avm_k, lxios = lwxios  ) 
    1216          CALL iom_rstput( kt, nitrst, numrow, 'avmu' , avmu_k, lxios = lwxios )  
    1217          CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k, lxios = lwxios ) 
    1218          CALL iom_rstput( kt, nitrst, numrow, 'mxln' , mxln, lxios = lwxios   ) 
     1212         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
     1213         CALL iom_rstput( kt, nitrst, numrow, 'en'   , en, ldxios = lwxios      )  
     1214         CALL iom_rstput( kt, nitrst, numrow, 'avt'  , avt_k, ldxios = lwxios  ) 
     1215         CALL iom_rstput( kt, nitrst, numrow, 'avm'  , avm_k, ldxios = lwxios  ) 
     1216         CALL iom_rstput( kt, nitrst, numrow, 'avmu' , avmu_k, ldxios = lwxios )  
     1217         CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k, ldxios = lwxios ) 
     1218         CALL iom_rstput( kt, nitrst, numrow, 'mxln' , mxln, ldxios = lwxios   ) 
    12191219         IF( lwxios ) CALL iom_swap(      cxios_context          ) 
    12201220         ! 

  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r8651 r8662  
    890890        !                                   ! ------------------- 
    891891        IF(lwp) WRITE(numout,*) '---- tke-rst ----' 
    892         IF( lwxios ) CALL iom_swap(      wxios_context          ) 
    893         CALL iom_rstput( kt, nitrst, numrow, 'en'   , en    , lxios = lwxios ) 
    894         CALL iom_rstput( kt, nitrst, numrow, 'avt'  , avt_k , lxios = lwxios ) 
    895         CALL iom_rstput( kt, nitrst, numrow, 'avm'  , avm_k , lxios = lwxios ) 
    896         CALL iom_rstput( kt, nitrst, numrow, 'avmu' , avmu_k, lxios = lwxios ) 
    897         CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k, lxios = lwxios ) 
    898         CALL iom_rstput( kt, nitrst, numrow, 'dissl', dissl , lxios = lwxios ) 
     892        IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
     893        CALL iom_rstput( kt, nitrst, numrow, 'en'   , en    , ldxios = lwxios ) 
     894        CALL iom_rstput( kt, nitrst, numrow, 'avt'  , avt_k , ldxios = lwxios ) 
     895        CALL iom_rstput( kt, nitrst, numrow, 'avm'  , avm_k , ldxios = lwxios ) 
     896        CALL iom_rstput( kt, nitrst, numrow, 'avmu' , avmu_k, ldxios = lwxios ) 
     897        CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k, ldxios = lwxios ) 
     898        CALL iom_rstput( kt, nitrst, numrow, 'dissl', dissl , ldxios = lwxios ) 
    899899        IF( lwxios ) CALL iom_swap(      cxios_context          ) 
    900900        ! 
Note: See TracChangeset for help on using the changeset viewer.