Changeset 43


Ignore:
Timestamp:
08/29/12 18:14:38 (12 years ago)
Author:
smasson
Message:

allow light restart with only un,vn,tn,sn,sshn

Location:
trunk/NEMOGCM/NEMO/OPA_SRC
Files:
19 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_exp.F90

    r7 r43  
    2727   USE prtctl          ! Print control 
    2828   USE iom             ! I/O library 
    29    USE restart         ! only for lrst_oce 
    3029   USE timing          ! Timing 
    3130 

  • trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_flt.F90

    r7 r43  
    4545   USE prtctl          ! Print control 
    4646   USE iom 
    47    USE restart         ! only for lrst_oce 
    4847   USE lib_fortran 
    4948#if defined key_agrif 

  • trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r7 r43  
    4141   USE in_out_manager  ! I/O manager 
    4242   USE iom             ! IOM library 
    43    USE restart         ! only for lrst_oce 
    4443   USE zdf_oce         ! Vertical diffusion 
    4544   USE wrk_nemo        ! Memory Allocation 

  • trunk/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90

    r7 r43  
    2020   USE divcur          ! hor. divergence and curl      (div & cur routines) 
    2121   USE iom             ! I/O library 
    22    USE restart         ! only for lrst_oce 
    2322   USE in_out_manager  ! I/O manager 
    2423   USE prtctl          ! Print control 

  • trunk/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90

    r7 r43  
    8080   !! was in restart but moved here because of the OFF line... better solution should be found... 
    8181   !!---------------------------------------------------------------------- 
    82    INTEGER ::   nitrst   !: time step at which restart file should be written 
     82   INTEGER ::   nitrst                !: time step at which restart file should be written 
     83   LOGICAL ::   lrst_oce              !: logical to control the oce restart write  
     84   INTEGER ::   numror, numrow        !: logical unit for cean restart (read and write) 
    8385 
    8486   !!---------------------------------------------------------------------- 

  • trunk/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r7 r43  
    2424   USE trdmld_oce      ! ocean active mixed layer tracers trends variables 
    2525   USE domvvl          ! variable volume 
     26   USE divcur          ! hor. divergence and curl      (div & cur routines) 
    2627 
    2728   IMPLICIT NONE 
    … …  
    3132   PUBLIC   rst_write  ! routine called by step module 
    3233   PUBLIC   rst_read   ! routine called by opa  module 
    33  
    34    LOGICAL, PUBLIC ::   lrst_oce =  .FALSE.   !: logical to control the oce restart write  
    35    INTEGER, PUBLIC ::   numror, numrow        !: logical unit for cean restart (read and write) 
    3634 
    3735   !! * Substitutions 
    … …  
    183181      ENDIF 
    184182      !  
    185                      CALL iom_get( numror, jpdom_autoglo, 'ub'     , ub      )   ! before fields 
    186                      CALL iom_get( numror, jpdom_autoglo, 'vb'     , vb      ) 
    187                      CALL iom_get( numror, jpdom_autoglo, 'tb'     , tsb(:,:,:,jp_tem) ) 
    188                      CALL iom_get( numror, jpdom_autoglo, 'sb'     , tsb(:,:,:,jp_sal) ) 
    189                      CALL iom_get( numror, jpdom_autoglo, 'rotb'   , rotb    ) 
    190                      CALL iom_get( numror, jpdom_autoglo, 'hdivb'  , hdivb   ) 
    191                      CALL iom_get( numror, jpdom_autoglo, 'sshb'   , sshb    ) 
    192       IF( lk_vvl )   CALL iom_get( numror, jpdom_autoglo, 'fse3t_b', fse3t_b(:,:,:) ) 
    193                      ! 
    194                      CALL iom_get( numror, jpdom_autoglo, 'un'     , un      )   ! now    fields 
    195                      CALL iom_get( numror, jpdom_autoglo, 'vn'     , vn      ) 
    196                      CALL iom_get( numror, jpdom_autoglo, 'tn'     , tsn(:,:,:,jp_tem) ) 
    197                      CALL iom_get( numror, jpdom_autoglo, 'sn'     , tsn(:,:,:,jp_sal) ) 
    198                      CALL iom_get( numror, jpdom_autoglo, 'rotn'   , rotn    ) 
    199                      CALL iom_get( numror, jpdom_autoglo, 'hdivn'  , hdivn   ) 
    200                      CALL iom_get( numror, jpdom_autoglo, 'sshn'   , sshn    ) 
    201                      CALL iom_get( numror, jpdom_autoglo, 'rhop'   , rhop    )   ! now    potential density 
     183      IF( iom_varid( numror, 'ub', ldstop = .FALSE. ) > 0 ) THEN 
     184         CALL iom_get( numror, jpdom_autoglo, 'ub'     , ub      )   ! before fields 
     185         CALL iom_get( numror, jpdom_autoglo, 'vb'     , vb      ) 
     186         CALL iom_get( numror, jpdom_autoglo, 'tb'     , tsb(:,:,:,jp_tem) ) 
     187         CALL iom_get( numror, jpdom_autoglo, 'sb'     , tsb(:,:,:,jp_sal) ) 
     188         CALL iom_get( numror, jpdom_autoglo, 'rotb'   , rotb    ) 
     189         CALL iom_get( numror, jpdom_autoglo, 'hdivb'  , hdivb   ) 
     190         CALL iom_get( numror, jpdom_autoglo, 'sshb'   , sshb    ) 
     191         IF( lk_vvl )   CALL iom_get( numror, jpdom_autoglo, 'fse3t_b', fse3t_b(:,:,:) ) 
     192      ELSE 
     193         neuler = 0 
     194      ENDIF 
     195      ! 
     196      CALL iom_get( numror, jpdom_autoglo, 'un'     , un      )   ! now    fields 
     197      CALL iom_get( numror, jpdom_autoglo, 'vn'     , vn      ) 
     198      CALL iom_get( numror, jpdom_autoglo, 'tn'     , tsn(:,:,:,jp_tem) ) 
     199      CALL iom_get( numror, jpdom_autoglo, 'sn'     , tsn(:,:,:,jp_sal) ) 
     200      CALL iom_get( numror, jpdom_autoglo, 'sshn'   , sshn    ) 
     201      IF( iom_varid( numror, 'rotn', ldstop = .FALSE. ) > 0 ) THEN 
     202         CALL iom_get( numror, jpdom_autoglo, 'rotn'   , rotn    ) 
     203         CALL iom_get( numror, jpdom_autoglo, 'hdivn'  , hdivn   ) 
     204      ELSE 
     205         CALL div_cur( 0 )                              ! Horizontal divergence & Relative vorticity 
     206      ENDIF 
     207      IF( iom_varid( numror, 'rhop', ldstop = .FALSE. ) > 0 ) THEN 
     208         CALL iom_get( numror, jpdom_autoglo, 'rhop'   , rhop    )   ! now    potential density 
     209      ELSE 
     210         CALL eos    ( tsn, rhd, rhop )    
     211      ENDIF 
    202212#if defined key_zdfkpp 
    203213      IF( iom_varid( numror, 'rhd', ldstop = .FALSE. ) > 0 ) THEN 
    204                      CALL iom_get( numror, jpdom_autoglo, 'rhd'    , rhd     )   ! now    in situ density anomaly 
    205       ELSE 
    206                      CALL eos( tsn, rhd )   ! compute rhd 
     214         CALL iom_get( numror, jpdom_autoglo, 'rhd'    , rhd     )   ! now    in situ density anomaly 
     215      ELSE 
     216         CALL eos( tsn, rhd )   ! compute rhd 
    207217      ENDIF 
    208218#endif 

  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90

    r1 r43  
    2020   USE iom             ! IOM library 
    2121   USE lib_mpp         ! MPP library 
    22    USE restart         ! ocean restart 
    2322 
    2423   IMPLICIT NONE 

  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r42 r43  
    4141#endif 
    4242   USE geo2ocean       !  
    43    USE restart         ! 
    4443   USE oce   , ONLY : tsn, un, vn 
    4544   USE albedo          ! 

  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r36 r43  
    4545 
    4646   USE prtctl           ! Print control                    (prt_ctl routine) 
    47    USE restart          ! ocean restart 
    4847   USE iom              ! IOM library 
    4948   USE in_out_manager   ! I/O manager 

  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r7 r43  
    2121   USE closea          ! closed seas 
    2222   USE fldread         ! read input field at current time step 
    23    USE restart         ! restart 
    2423   USE in_out_manager  ! I/O manager 
    2524   USE iom             ! I/O module 

  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90

    r7 r43  
    1818   USE sbcapr          ! surface boundary condition: atmospheric pressure 
    1919   USE prtctl          ! Print control                    (prt_ctl routine) 
    20    USE restart         ! ocean restart 
    2120   USE iom 
    2221   USE in_out_manager  ! I/O manager 

  • trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_cen2.F90

    r7 r43  
    2929   USE diaptr          ! poleward transport diagnostics 
    3030   USE zdf_oce         ! ocean vertical physics 
    31    USE restart         ! ocean restart 
    3231   USE trc_oce         ! share passive tracers/Ocean variables 
    3332   USE lib_mpp         ! MPP library 

  • trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

    r7 r43  
    2727   USE iom             ! I/O manager 
    2828   USE fldread         ! read input fields 
    29    USE restart         ! ocean restart 
    3029   USE lib_mpp         ! MPP library 
    3130   USE wrk_nemo       ! Memory Allocation 

  • trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

    r7 r43  
    2323   USE in_out_manager  ! I/O manager 
    2424   USE prtctl          ! Print control 
    25    USE restart         ! ocean restart 
    2625   USE sbcrnf          ! River runoff   
    2726   USE sbcmod          ! ln_rnf   

  • trunk/NEMOGCM/NEMO/OPA_SRC/TRD/trdmld.F90

    r7 r43  
    3636   USE trdmld_rst      ! restart for diagnosing the ML trends 
    3737   USE prtctl          ! Print control 
    38    USE restart         ! for lrst_oce 
    3938   USE lib_mpp         ! MPP library 
    4039   USE wrk_nemo        ! Memory allocation 

  • trunk/NEMOGCM/NEMO/OPA_SRC/TRD/trdmld_rst.F90

    r1 r43  
    1212   USE in_out_manager  ! I/O manager 
    1313   USE iom             ! I/O module 
    14    USE restart         ! only for lrst_oce 
    1514 
    1615   IMPLICIT NONE 

  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r7 r43  
    2323   USE phycst         ! physical constants 
    2424   USE zdfmxl         ! mixed layer 
    25    USE restart        ! only for lrst_oce 
    2625   USE lbclnk         ! ocean lateral boundary conditions (or mpp link) 
    2726   USE lib_mpp        ! MPP manager 

  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90

    r1 r43  
    2626   USE tranpc          ! convection: non penetrative adjustment 
    2727   USE ldfslp          ! iso-neutral slopes 
    28    USE restart         ! ocean restart 
    2928 
    3029   USE in_out_manager  ! I/O manager 

  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r7 r43  
    4444   USE zdf_oce        ! vertical physics: ocean variables 
    4545   USE zdfmxl         ! vertical physics: mixed layer 
    46    USE restart        ! ocean restart 
    4746   USE lbclnk         ! ocean lateral boundary conditions (or mpp link) 
    4847   USE prtctl         ! Print control 
Note: See TracChangeset for help on using the changeset viewer.