Changeset 4268 for LMDZ6/trunk/libf/dyn3dmem
- Timestamp:
- Sep 21, 2022, 10:41:03 AM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3dmem/dynetat0_loc.F90
r4266 r4268 46 46 REAL, ALLOCATABLE :: ucov_glo(:,:), q_glo(:,:), phis_glo(:) 47 47 REAL, ALLOCATABLE :: teta_glo(:,:) 48 LOGICAL :: lOldHNO3 48 LOGICAL :: lOldHNO3, ll 49 49 !------------------------------------------------------------------------------- 50 50 modname="dynetat0_loc" … … 152 152 !--- Tracers 153 153 ALLOCATE(q_glo(ip1jmp1,llm)) 154 l OldHNO3=.FALSE.154 ll=.FALSE. 155 155 #ifdef REPROBUS 156 156 !--- Old convention: HNO3 = g+l and HNO3_g = g ; new convention: HNO3tot = g+l and HNO3 = g 157 l OldHNO3= NF90_INQ_VARID(fID,var,vID), "inq", 'HNO3tot') /= NF90_NoErr157 ll = NF90_INQ_VARID(fID,var,vID), "inq", 'HNO3tot') /= NF90_NoErr 158 158 #endif 159 159 DO iq=1,nqtot 160 160 var = tracers(iq)%name 161 161 oldVar = new2oldName(var) 162 lOldHNO3 = l OldHNO3.AND. (var == 'HNO3' .OR. var == 'HNO3_g')162 lOldHNO3 = ll .AND. (var == 'HNO3' .OR. var == 'HNO3_g') 163 163 !-------------------------------------------------------------------------------------------------------------------------- 164 164 IF(NF90_INQ_VARID(fID, var, vID) == NF90_NoErr .AND. .NOT.lOldHNO3) THEN !=== REGULAR CASE
Note: See TracChangeset
for help on using the changeset viewer.