- Timestamp:
- Oct 11, 2024, 10:49:23 AM (2 months ago)
- Location:
- trunk/LMDZ.COMMON/libf/evolution
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/evolution/changelog.txt
r3456 r3457 439 439 == 11/10/2024 == JBC 440 440 Cleaning of the adsorption module to make the debugging easier. 441 442 == 11/10/2024 == JBC 443 Modification of dimension detection for the variables written in "diagpem.nc": in particular for 'nb_str_max' which can evolve and match the value of other dimensions. -
trunk/LMDZ.COMMON/libf/evolution/iostart_PEM.F90
r3297 r3457 694 694 IF (is_master) THEN 695 695 696 IF (index(field_name,"stratif") == 0) then 696 697 IF (field_size==1) THEN 697 698 ! input is a 1D "surface field" array … … 907 908 endif ! of if (.not.present(time)) 908 909 909 ELSE IF (field_size == nb_str_max) THEN 910 ELSE 911 write(*,*) "Error phyredem(put_field_rgen) : wrong dimension for ",trim(field_name) 912 write(*,*) " field_size =",field_size 913 CALL abort_physic("put_field_rgen","wrong field dimension",1) 914 ENDIF 915 ELSE 910 916 ! input is a 2D "stratification" array 911 917 if (.not.present(time)) then ! for a time-independent field … … 949 955 950 956 endif ! of if (.not.present(time)) 951 952 ELSE 953 write(*,*) "Error phyredem(put_field_rgen) : wrong dimension for ",trim(field_name) 954 write(*,*) " field_size =",field_size 955 CALL abort_physic("put_field_rgen","wrong field dimension",1) 956 ENDIF 957 ENDIF 957 958 958 959 ! Check the writting of field to file went OK
Note: See TracChangeset
for help on using the changeset viewer.