Ignore:
Timestamp:
2019-08-06T17:59:22+02:00 (19 months ago)
Author:
gsamson
Message:

dev_r11265_ABL : see #2131

  • merge src and cfgs from HPC-13_IRRMANN_BDY_optimization branch @ r11402 with dev_r11265_ABL branch @ r11363
  • change ORCA2 results due to ice rheology "cleaning" (see commit r11377)
Location:
NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/OCE/IOM
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/OCE/IOM/in_out_manager.F90

    r11348 r11413  
    8080   INTEGER       ::   nleapy                      !: Leap year calendar flag (0/1 or 30) 
    8181   INTEGER       ::   ninist                      !: initial state output flag (0/1) 
    82    INTEGER       ::   nwrite                      !: model standard output frequency 
    83    INTEGER       ::   nstock                      !: restart file frequency 
    84    INTEGER, DIMENSION(10) :: nstocklist           !: restart dump times 
    8582 
    8683   !!---------------------------------------------------------------------- 
  • NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/OCE/IOM/iom.F90

    r11360 r11413  
    5858   PUBLIC iom_init, iom_swap, iom_open, iom_close, iom_setkt, iom_varid, iom_get 
    5959   PUBLIC iom_chkatt, iom_getatt, iom_putatt, iom_getszuld, iom_rstput, iom_delay_rst, iom_put 
    60    PUBLIC iom_use, iom_context_finalize 
     60   PUBLIC iom_use, iom_context_finalize, iom_miss_val 
    6161 
    6262   PRIVATE iom_rp0d, iom_rp1d, iom_rp2d, iom_rp3d 
     
    230230          za_bnds(2,:) = ght_abl(2:jpka  ) + e3w_abl(2:jpka) 
    231231          CALL iom_set_axis_attr( "ghw_abl", bounds=za_bnds ) 
    232           ! 
    233 # if defined key_floats 
    234232          CALL iom_set_axis_attr( "nfloat", (/ (REAL(ji,wp), ji=1,jpnfl) /) ) 
    235 # endif 
    236233# if defined key_si3 
    237234          CALL iom_set_axis_attr( "ncatice", (/ (REAL(ji,wp), ji=1,jpl) /) ) 
     
    16891686      CHARACTER(LEN=*), INTENT(in) ::   cdname 
    16901687      REAL(wp)        , INTENT(in) ::   pfield0d 
    1691       REAL(wp)        , DIMENSION(jpi,jpj) ::   zz     ! masson 
     1688!!      REAL(wp)        , DIMENSION(jpi,jpj) ::   zz     ! masson 
    16921689#if defined key_iomput 
    1693       zz(:,:)=pfield0d 
    1694       CALL xios_send_field(cdname, zz) 
    1695       !CALL xios_send_field(cdname, (/pfield0d/))  
     1690!!clem      zz(:,:)=pfield0d 
     1691!!clem      CALL xios_send_field(cdname, zz) 
     1692      CALL xios_send_field(cdname, (/pfield0d/))  
    16961693#else 
    16971694      IF( .FALSE. )   WRITE(numout,*) cdname, pfield0d   ! useless test to avoid compilation warnings 
     
    24062403   !!   NOT 'key_iomput'                               a few dummy routines 
    24072404   !!---------------------------------------------------------------------- 
    2408  
    24092405   SUBROUTINE iom_setkt( kt, cdname ) 
    24102406      INTEGER         , INTENT(in)::   kt  
     
    24212417 
    24222418   LOGICAL FUNCTION iom_use( cdname ) 
    2423       !!---------------------------------------------------------------------- 
    2424       !!---------------------------------------------------------------------- 
    24252419      CHARACTER(LEN=*), INTENT(in) ::   cdname 
    2426       !!---------------------------------------------------------------------- 
    24272420#if defined key_iomput 
    24282421      iom_use = xios_field_is_active( cdname ) 
     
    24312424#endif 
    24322425   END FUNCTION iom_use 
    2433     
     2426 
     2427   SUBROUTINE iom_miss_val( cdname, pmiss_val ) 
     2428      CHARACTER(LEN=*), INTENT(in ) ::   cdname 
     2429      REAL(wp)        , INTENT(out) ::   pmiss_val    
     2430#if defined key_iomput 
     2431      ! get missing value 
     2432      CALL xios_get_field_attr( cdname, default_value = pmiss_val ) 
     2433#else 
     2434      IF( .FALSE. )   WRITE(numout,*) cdname, pmiss_val   ! useless test to avoid compilation warnings 
     2435#endif 
     2436   END SUBROUTINE iom_miss_val 
     2437   
    24342438   !!====================================================================== 
    24352439END MODULE iom 
  • NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/OCE/IOM/restart.F90

    r10425 r11413  
    7070         IF( ln_rst_list ) THEN 
    7171            nrst_lst = 1 
    72             nitrst = nstocklist( nrst_lst ) 
     72            nitrst = nn_stocklist( nrst_lst ) 
    7373         ELSE 
    7474            nitrst = nitend 
    7575         ENDIF 
    7676      ENDIF 
     77       
     78      IF( .NOT. ln_rst_list .AND. nn_stock == -1 )   RETURN   ! we will never do any restart 
    7779 
    7880      ! frequency-based restart dumping (nn_stock) 
    79       IF( .NOT. ln_rst_list .AND. MOD( kt - 1, nstock ) == 0 ) THEN    
     81      IF( .NOT. ln_rst_list .AND. MOD( kt - 1, nn_stock ) == 0 ) THEN    
    8082         ! we use kt - 1 and not kt - nit000 to keep the same periodicity from the beginning of the experiment 
    81          nitrst = kt + nstock - 1                  ! define the next value of nitrst for restart writing 
     83         nitrst = kt + nn_stock - 1                  ! define the next value of nitrst for restart writing 
    8284         IF( nitrst > nitend )   nitrst = nitend   ! make sure we write a restart at the end of the run 
    8385      ENDIF 
     
    8587      ! we open and define the ocean restart file one time step before writing the data (-> at nitrst - 1) 
    8688      ! except if we write ocean restart files every time step or if an ocean restart file was writen at nitend - 1 
    87       IF( kt == nitrst - 1 .OR. nstock == 1 .OR. ( kt == nitend .AND. .NOT. lrst_oce ) ) THEN 
     89      IF( kt == nitrst - 1 .OR. nn_stock == 1 .OR. ( kt == nitend .AND. .NOT. lrst_oce ) ) THEN 
    8890         IF( nitrst <= nitend .AND. nitrst > 0 ) THEN  
    8991            ! beware of the format used to write kt (default is i8.8, that should be large enough...) 
     
    184186         lrst_oce = .FALSE. 
    185187            IF( ln_rst_list ) THEN 
    186                nrst_lst = MIN(nrst_lst + 1, SIZE(nstocklist,1)) 
    187                nitrst = nstocklist( nrst_lst ) 
     188               nrst_lst = MIN(nrst_lst + 1, SIZE(nn_stocklist,1)) 
     189               nitrst = nn_stocklist( nrst_lst ) 
    188190            ENDIF 
    189191      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.