Changeset 4139


Ignore:
Timestamp:
Apr 28, 2022, 12:21:33 PM (3 years ago)
Author:
acozic
Message:

added (and call) a routine for the calculation of mass flux used in offline mode

Location:
LMDZ6/trunk/libf/dyn3dmem
Files:
1 added
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3dmem/caladvtrac_mod.F90

    r4050 r4139  
    1616
    1717  REAL,POINTER,SAVE :: massem(:,:)
    18  
     18  !Offline
     19  REAL,POINTER,SAVE :: tetac(:,:)
     20  REAL,POINTER,SAVE :: massec(:,:)
     21  REAL,POINTER,SAVE :: phic(:,:)
     22  REAL,POINTER,SAVE :: pbarucc(:,:)
     23  REAL,POINTER,SAVE :: pbarvcc(:,:)
     24  REAL,POINTER,SAVE :: pbarugg(:,:)
     25  REAL,POINTER,SAVE :: pbarvgg(:,:)
     26  REAL,POINTER,SAVE :: wgg(:,:)
    1927CONTAINS
    2028
    … …  
    5058    CALL allocate_v(pbarvg,llm,d)
    5159    CALL allocate_u(wg,llm,d)
     60    ! Offline
     61    CALL allocate_u(tetac,llm,d)
     62    CALL allocate_u(phic,llm,d)
     63    CALL allocate_u(pbarucc,llm,d)
     64    CALL allocate_v(pbarvcc,llm,d)
     65    CALL allocate_u(massec,llm,d)
     66    CALL allocate_u(pbarugg,llm,d)
     67    CALL allocate_v(pbarvgg,llm,d)
     68    CALL allocate_u(wgg,llm,d)
    5269
    5370    CALL groupe_allocate

  • LMDZ6/trunk/libf/dyn3dmem/gcm.F90

    r4103 r4139  
    395395  !   Initialisation de la physique :
    396396  !   -------------------------------
     397
     398  !  Choix des frequences de stokage pour le offline
     399  !      istdyn=day_step/4     ! stockage toutes les 6h=1jour/4
     400  !      istdyn=day_step/12     ! stockage toutes les 2h=1jour/12
     401  istdyn=day_step/8     ! stockage toutes les 6h=1jour/12
     402  istphy=istdyn/iphysiq
     403
    397404  IF ((iflag_phys==1).or.(iflag_phys>=100)) THEN
    398405     ! Physics:
    … …  
    434441#endif
    435442  ! #endif of #ifdef CPP_IOIPSL
    436 
    437   !  Choix des frequences de stokage pour le offline
    438   !      istdyn=day_step/4     ! stockage toutes les 6h=1jour/4
    439   !      istdyn=day_step/12     ! stockage toutes les 2h=1jour/12
    440   istdyn=day_step/4     ! stockage toutes les 6h=1jour/12
    441   istphy=istdyn/iphysiq     
    442 
    443 
    444443  !
    445444  !-----------------------------------------------------------------------

  • LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.F

    r4056 r4139  
    737737     .        flxw,pk, iapptrac)
    738738
     739! call creation of mass flux
     740         IF (offline .AND. .NOT. adjust) THEN
     741            CALL fluxstokenc_p(pbaru,pbarv,masse,teta,phi)
     742         ENDIF
     743
    739744         !write(*,*) 'leapfrog 719'
    740745         if (ok_iso_verif) then
Note: See TracChangeset for help on using the changeset viewer.