Changeset 3851 for LMDZ6/branches/LMDZ-tracers/libf/phylmd/calbeta.F90
- Timestamp:
- Feb 22, 2021, 12:44:07 PM (4 years ago)
- Location:
- LMDZ6/branches/LMDZ-tracers
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ-tracers
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ-tracers/libf/phylmd/calbeta.F90
r3102 r3851 7 7 USE dimphy 8 8 USE indice_sol_mod 9 9 10 IMPLICIT none 11 12 #include "flux_arp.h" 13 10 14 !====================================================================== 11 15 ! Auteur(s): Z.X. Li (LMD/CNRS) (adaptation du GCM au LMD) … … 82 86 ENDDO 83 87 ENDIF 88 89 ! EV: when beta is prescribed for 1D cases: 90 IF (knon.EQ.1 .AND. ok_prescr_beta) THEN 91 DO i = 1, knon 92 vbeta(i)=betaevap 93 ENDDO 94 ENDIF 84 95 85 96 END SUBROUTINE calbeta
Note: See TracChangeset
for help on using the changeset viewer.