Changeset 5075 for LMDZ6/trunk/libf/phylmdiso/phyaqua_mod.F90
- Timestamp:
- Jul 19, 2024, 10:05:57 AM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/phyaqua_mod.F90
r5073 r5075 147 147 !END IF 148 148 149 if (year_len .ne.360) then149 if (year_len/=360) then 150 150 write (*,*) year_len 151 151 write (*,*) 'iniaqua: 360 day calendar is required !' … … 960 960 END IF 961 961 962 if (type_profil .EQ.20) then962 if (type_profil==20) then 963 963 print*,'Profile SST 20' 964 964 ! Méthode 13 "Qmax2K" plateau réel �| l'Equateur augmenté +2K … … 969 969 endif 970 970 971 if (type_profil .EQ.21) then971 if (type_profil==21) then 972 972 print*,'Profile SST 21' 973 973 ! Méthode 13 "Qmax2K" plateau réel �| l'Equateur augmenté +2K
Note: See TracChangeset
for help on using the changeset viewer.