Changeset 4359 for LMDZ6/trunk/libf/phylmdiso
- Timestamp:
- Nov 30, 2022, 6:23:36 PM (22 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90
r4358 r4359 766 766 !----------------------------------------------------------------------------- 767 767 INTEGER :: nsrf, i 768 CHARACTER(LEN=maxlen), ALLOCATABLE :: nam(:) 769 CHARACTER(LEN=maxlen) :: tname, des 768 CHARACTER(LEN=maxlen) :: nam(SIZE(name)), tname, des 770 769 IF(SIZE(field,3)>99) CALL abort_physic("phyetat0", "Too much sub-cells", 1) 771 770 DO nsrf = 1, SIZE(field,3) 772 nam = [(TRIM(name(i))//TRIM(int2str(nsrf,2)), i=1, SIZE(name))]771 DO i = 1, SIZE(name); nam(i) = TRIM(name(i))//TRIM(int2str(nsrf,2)); END DO 773 772 des = TRIM(descr)//" srf:"//int2str(nsrf,2) 774 773 lFound = phyetat0_get21(field(:,:,nsrf), nam, TRIM(des), default, tname)
Note: See TracChangeset
for help on using the changeset viewer.