Changeset 4054
- Timestamp:
- Jan 10, 2022, 1:52:20 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3dmem/guide_loc_mod.F90
r4042 r4054 1030 1030 !$OMP END MASTER 1031 1031 endif ! of if (first) 1032 1033 CALL pression_loc( ijnb_u, ap, bp, psi, p ) 1034 if (disvert_type==1) then 1035 CALL exner_hyb_loc(ijnb_u,psi,p,pks,pk) 1036 else ! we assume that we are in the disvert_type==2 case 1037 CALL exner_milieu_loc(ijnb_u,psi,p,pks,pk) 1038 endif 1032 1033 if (guide_plevs /= 1 .or. guide_t .and. .not. guide_teta & 1034 .or. guide_q .and. guide_hr) then 1035 CALL pression_loc( ijnb_u, ap, bp, psi, p ) 1036 if (disvert_type==1) then 1037 CALL exner_hyb_loc(ijnb_u,psi,p,pks,pk) 1038 else ! we assume that we are in the disvert_type==2 case 1039 CALL exner_milieu_loc(ijnb_u,psi,p,pks,pk) 1040 endif 1041 end if 1039 1042 1040 1043 ! -----------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.