Ignore:
Timestamp:
2021-07-27T15:29:46+02:00 (3 years ago)
Author:
agnes.ducharne
Message:

Updates for the new driver as in r6040 and r6041 of the trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ORCHIDEE_2_2/ORCHIDEE/src_driver/orchideedriver.f90

    r6319 r7257  
    159159  REAL(r_std), DIMENSION(2) :: testpt=(/9999.99,9999.99/) 
    160160  INTEGER(i_std) :: ktest 
     161  INTEGER :: printlev_loc  !! local write level 
    161162 
    162163  OFF_LINE_MODE = .TRUE.  
     164 
     165  ! Set specific write level to orchideedriver using PRINTLEV_orchideedriver=[0-4]  
     166  ! in run.def. The global printlev is used as default value.  
     167  printlev_loc=get_printlev('orchideedriver') 
    163168 
    164169  !- 
     
    264269  IF ( (zoom_lon(1)+180 < EPSILON(zoom_lon(1))) .AND. (zoom_lon(2)-180 < EPSILON(zoom_lon(2))) .AND.& 
    265270       &(zoom_lat(1)+90 < EPSILON(zoom_lat(1))) .AND. (zoom_lat(2)-90 < EPSILON(zoom_lat(2))) ) THEN 
    266      ! 
     271 
     272     ! We are here only if zoom_lon and zoom_lat have there original values which 
     273     ! means that they have not been modified by the getin LIMIT_ above.  
     274     ! Read WEST_EAST and SOUTH_NORTH from run.def. 
     275      
    267276     !Config Key   = WEST_EAST 
    268277     !Config Desc  = Longitude interval to use from the forcing data 
     
    561570  ! 
    562571  WRITE(*,*) "itau_offset : date0 : ", year_end, month_end, day_end, sec_end 
    563   ! 
     572   
     573  !!- Initialize module for output with XIOS 
    564574  CALL xios_orchidee_init( MPI_COMM_ORCH,                & 
    565575       date0,    year_end, month_end, day_end, julian_diff,  & 
    566576       lon,      lat,      znt) 
    567   ! 
     577 
     578  CALL sechiba_xios_initialize  
     579 
     580  CALL xios_orchidee_close_definition 
     581  IF (printlev_loc >= 2) WRITE(numout,*) 'After xios_orchidee_close_definition' 
     582 
    568583  !- Initialize IOIPSL sechiba output files 
    569584  itau_sechiba = itau+itau_offset 
     
    838853  !- 
    839854  !-- 
    840   ! 
    841   CALL xios_orchidee_context_finalize 
     855  ! Close IOIPSL history files 
    842856  CALL histclo 
    843857  IF(is_root_prc) THEN 
     858     ! Close restart files 
    844859     CALL restclo 
    845860     CALL getin_dump 
     
    874889  ENDIF 
    875890  ! 
     891  ! Finalize MPI and XIOS 
    876892  CALL Finalize_mpi 
    877893  ! 
Note: See TracChangeset for help on using the changeset viewer.