Changeset 5866 for CONFIG_DEVT


Ignore:
Timestamp:
06/24/21 16:34:45 (3 years ago)
Author:
ymipsl
Message:

Adapt NEMO to ensemble management.

Yann

Location:
CONFIG_DEVT/IPSLCM6.5_work_ENSEMBLES/config/IPSLCM6/SOURCES/NEMO
Files:
3 added
2 edited

Legend:

Unmodified
Added
Removed

  • CONFIG_DEVT/IPSLCM6.5_work_ENSEMBLES/config/IPSLCM6/SOURCES/NEMO/arch-X64_IRENE-AMD.fcm

    r5501 r5866  
    3737%XIOS_LIB            -L%XIOS_HOME/lib -lxios 
    3838%OASIS_INC           -I%OASIS_HOME/build/lib/psmile.MPI1  
    39 %OASIS_LIB           -L%OASIS_HOME/lib -lpsmile.MPI1 -lscrip -lmct -lmpeu 
     39%OASIS_LIB           -L%OASIS_HOME/lib -loasis.cbind -lpsmile.MPI1 -lscrip -lmct -lmpeu 
    4040 
    4141%CPP                 cpp 
    4242%FC                  mpif90 -c -cpp 
    43 %FCFLAGS             -i4 -r8 -O3 -fp-model strict 
     43#%FCFLAGS             -i4 -r8 -g -O0 -fp-model strict 
     44%FCFLAGS             -i4 -r8 -g -O3 -fp-model strict 
    4445%FFLAGS              %FCFLAGS 
    4546%LD                  mpif90 

  • CONFIG_DEVT/IPSLCM6.5_work_ENSEMBLES/config/IPSLCM6/SOURCES/NEMO/cpl_oasis3.F90

    r5501 r5866  
    130130 
    131131   SUBROUTINE cpl_define( krcv, ksnd, kcplmodel ) 
     132   USE ensemble_oce  
    132133      !!------------------------------------------------------------------- 
    133134      !!             ***  ROUTINE cpl_define  *** 
    … …  
    245246#endif 
    246247                  IF( ln_ctl ) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_Out 
     248 
     249                  IF (ensemble_management) zclname=TRIM(ADJUSTL(zclname))//"__"//TRIM(ADJUSTL(str_ensemble_pool_member_rank)) 
     250                  PRINT*,"oasis_def_var sent ",zclname 
     251 
    247252                  CALL oasis_def_var (ssnd(ji)%nid(jc,jm), zclname, id_part   , (/ 2, 1 /),   & 
    248253                     &                OASIS_Out          , ishape , OASIS_REAL, nerror ) 
    … …  
    290295#endif 
    291296                  IF( ln_ctl ) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_In 
     297 
     298                  IF (ensemble_management) zclname=TRIM(ADJUSTL(zclname))//"__"//TRIM(ADJUSTL(str_ensemble_pool_member_rank)) 
     299                  PRINT*,"oasis_def_var recv ",zclname 
     300 
    292301                  CALL oasis_def_var (srcv(ji)%nid(jc,jm), zclname, id_part   , (/ 2, 1 /),   & 
    293302                     &                OASIS_In           , ishape , OASIS_REAL, nerror ) 
Note: See TracChangeset for help on using the changeset viewer.