Changeset 3878


Ignore:
Timestamp:
2013-04-20T06:11:18+02:00 (8 years ago)
Author:
gm
Message:

dev_r3858_CNRS3_Ediag: #927 finalize the phasing with 2011/dev_r3309_LOCEAN12_Ediag branche

Location:
branches/2013/dev_r3858_CNRS3_Ediag/NEMOGCM/NEMO/OPA_SRC
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3858_CNRS3_Ediag/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r3680 r3878  
    2222   USE iom             ! I/O module 
    2323   USE eosbn2          ! equation of state            (eos bn2 routine) 
    24    USE trdmld_oce      ! ocean active mixed layer tracers trends variables 
     24   USE trdmxl_oce      ! ocean active mixed layer tracers trends variables 
    2525   USE domvvl          ! variable volume 
    2626   USE divcur          ! hor. divergence and curl      (div & cur routines) 
     
    134134      IF( kt == nitrst ) THEN 
    135135         CALL iom_close( numrow )     ! close the restart file (only at last time step) 
    136          IF( .NOT. lk_trdmld )   lrst_oce = .FALSE. 
     136!!gm         IF( .NOT. lk_trdmld )   lrst_oce = .FALSE. 
     137         lrst_oce = .FALSE. 
    137138      ENDIF 
    138139      ! 
  • branches/2013/dev_r3858_CNRS3_Ediag/NEMOGCM/NEMO/OPA_SRC/step.F90

    r3769 r3878  
    256256 
    257257      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    258       ! Trends                              (ua, va, tsa used as workspace) 
    259       !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    260       IF( nstop == 0 ) THEN 
    261          IF( lk_trddyn     )   CALL trd_dwr( kstp )         ! trends: dynamics 
    262          IF( lk_trdtra     )   CALL trd_twr( kstp )         ! trends: active tracers 
    263          IF( lk_trdmld     )   CALL trd_mld( kstp )         ! trends: Mixed-layer 
    264          IF( lk_trdvor     )   CALL trd_vor( kstp )         ! trends: vorticity budget 
    265       ENDIF 
    266  
    267       !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    268258      ! Coupled mode 
    269259      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
  • branches/2013/dev_r3858_CNRS3_Ediag/NEMOGCM/NEMO/OPA_SRC/step_oce.F90

    r3769 r3878  
    8484 
    8585   USE diawri           ! Standard run outputs             (dia_wri routine) 
    86    USE trdicp           ! Ocean momentum/tracers trends    (trd_wri routine) 
    87    USE trdmld           ! mixed-layer trends               (trd_mld routine) 
    88    USE trdmld_rst       ! restart for mixed-layer trends 
    89    USE trdmod_oce       ! ocean momentum/tracers trends 
    90    USE trdmod           ! momentum/tracers trends 
    91    USE trdvor           ! vorticity budget                 (trd_vor routine) 
    9286   USE diaptr           ! poleward transports              (dia_ptr routine) 
    9387   USE diadct           ! sections transports              (dia_dct routine) 
Note: See TracChangeset for help on using the changeset viewer.