- Timestamp:
- Jun 17, 2022, 4:24:49 PM (2 years ago)
- Location:
- LMDZ6/branches/LMDZ-ECRAD
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ-ECRAD
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ-ECRAD/libf/phylmd/inlandsis/VARtSV.F90
r3792 r4171 41 41 42 42 SUBROUTINE INIT_VARtSV 43 43 44 IMPLICIT NONE 44 45 46 INTEGER ikl 47 48 49 50 51 52 53 45 54 ALLOCATE(toicSV(klonv)) 46 55 … … 59 68 ALLOCATE(rsolSV(klonv)) ! Radiation balance surface 60 69 70 DO ikl=1,klonv 71 72 toicSV(ikl) = 0. 73 dz1_SV(ikl,:) = 0. 74 dz2_SV(ikl,:) = 0. 75 Tsf_SV(ikl) = 0. 76 TsfnSV(ikl) = 0. 77 AcoHSV(ikl) = 0. 78 BcoHSV(ikl) = 0. 79 AcoQSV(ikl) = 0. 80 ps__SV(ikl) = 0. 81 p1l_SV(ikl) = 0. 82 cdH_SV(ikl) = 0. 83 cdM_SV(ikl) = 0. 84 rsolSV(ikl) = 0. 85 END DO 86 87 88 61 89 END SUBROUTINE INIT_VARtSV 62 90
Note: See TracChangeset
for help on using the changeset viewer.