Ignore:
Timestamp:
2020-04-17T17:12:15+02:00 (8 months ago)
Author:
gsamson
Message:

fix ABL restartability issue (ticket #2419)

Location:
NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/ablrst.F90

    r12588 r12770  
    109109      CALL iom_delay_rst( 'WRITE', 'ABL', numraw )   ! save only abl delayed global communication variables 
    110110 
    111       ! Prognostic variables 
     111      ! Prognostic (after timestep + swap time indices = now timestep) variables 
    112112      CALL iom_rstput( iter, nitrst, numraw,   'u_abl',   u_abl(:,:,:,nt_n      ) ) 
    113113      CALL iom_rstput( iter, nitrst, numraw,   'v_abl',   v_abl(:,:,:,nt_n      ) ) 
     
    117117      CALL iom_rstput( iter, nitrst, numraw, 'avm_abl', avm_abl(:,:,:           ) ) 
    118118      CALL iom_rstput( iter, nitrst, numraw, 'avt_abl', avt_abl(:,:,:           ) ) 
     119      CALL iom_rstput( iter, nitrst, numraw,'mxld_abl',mxld_abl(:,:,:           ) ) 
    119120      CALL iom_rstput( iter, nitrst, numraw,    'pblh',    pblh(:,:             ) ) 
    120121      ! 
     
    171172      CALL iom_get( numrar, jpdom_autoglo, 'avm_abl', avm_abl(:,:,:           ) ) 
    172173      CALL iom_get( numrar, jpdom_autoglo, 'avt_abl', avt_abl(:,:,:           ) ) 
     174      CALL iom_get( numrar, jpdom_autoglo,'mxld_abl',mxld_abl(:,:,:           ) ) 
    173175      CALL iom_get( numrar, jpdom_autoglo,    'pblh',    pblh(:,:             ) ) 
    174176      CALL iom_delay_rst( 'READ', 'ABL', numrar )   ! read only abl delayed global communication variables 
  • NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/sbcabl.F90

    r12749 r12770  
    267267 
    268268      ! Initialize the time index for now time (nt_n) and after time (nt_a) 
    269       nt_n = 1 + MOD( nit000  , 2) 
    270       nt_a = 1 + MOD( nit000+1, 2) 
     269      nt_n = 1 + MOD( nit000+1, 2) 
     270      nt_a = 1 + MOD( nit000  , 2) 
    271271 
    272272      ! initialize ABL from data or restart 
Note: See TracChangeset for help on using the changeset viewer.