Changeset 1033 for codes

Timestamp:

08/05/20 12:01:06 (4 years ago)

Author:

dubos

Message:

devel : upgrade IOIPSL to match trunk and please PGI compiler

Location:

codes/icosagcm/devel/tools/ioipsl

Files:

• calendar.f90 (modified) (6 diffs)
• getincom.f90 (modified) (2 diffs)

codes/icosagcm/devel/tools/ioipsl/calendar.f90

@@ -363 +363 @@
         ss = INT(dd)*one_day+dd-INT(dd)
         itau = itau+NINT(ss/dt)
-        tmp_str = tmp_str(y_pos+1:LEN_TRIM(tmp_str))
+        tmp_str = trim(tmp_str(y_pos+1:))
       ELSE IF (m_pos > 0) THEN
         WRITE(fmt,'("(I",I10.10,")")') m_pos-1
@@ -371 +371 @@
         ss = INT(dd)*one_day+dd-INT(dd)
         itau = itau+NINT(ss/dt)
-        tmp_str = tmp_str(m_pos+1:LEN_TRIM(tmp_str))
+        tmp_str = trim(tmp_str(m_pos+1:))
       ELSE IF (d_pos > 0) THEN
         WRITE(fmt,'("(I",I10.10,")")') d_pos-1
         READ(tmp_str(1:d_pos-1),fmt) read_time
         itau = itau+NINT(read_time*one_day/dt)
-        tmp_str = tmp_str(d_pos+1:LEN_TRIM(tmp_str))
+        tmp_str = trim(tmp_str(d_pos+1:))
       ELSE IF (h_pos > 0) THEN
         WRITE(fmt,'("(I",I10.10,")")') h_pos-1
@@ -386 +386 @@
         READ(tmp_str(1:s_pos-1),fmt) read_time
         itau = itau+NINT(read_time/dt)
-        tmp_str = tmp_str(s_pos+1:LEN_TRIM(tmp_str))
+        tmp_str = trim(tmp_str(s_pos+1:))
       ENDIF
 !-
@@ -460 +460 @@
  &   ' Please call ioconf_startdate before itau2ymds.')
   ENDIF
-  julian_day = start_day
+  julian_day = INT(start_day)
   julian_sec = start_sec+REAL(itau)*deltat
   CALL ju2ymds_internal (julian_day,julian_sec,year,month,day,sec)
@@ -558 +558 @@
       date_last_act = itau2date (last_action,date0,dt)
       CALL ju2ymds (date_last_act,year,month,day,sec)
-      monthp1 = month-freq
+      monthp1 = INT(month-freq)
       yearp = year
 !-
@@ -575 +575 @@
 !---- then we will take it as it is better.
 !-
-      monthp1 = month+ABS(freq)
+      monthp1 = INT(month+ABS(freq))
       yearp=year
       IF (monthp1 >= 13) THEN

codes/icosagcm/devel/tools/ioipsl/getincom.f90

@@ -659 +659 @@
   INTEGER :: k_typ,nb_to_ret,it,pos,len_str,status_cnt,io_err
   CHARACTER(LEN=n_d_fmt)  :: cnt
-  CHARACTER(LEN=80) :: str_READ,str_READ_lower
+  CHARACTER(LEN=100) :: str_READ,str_READ_lower
   CHARACTER(LEN=9)  :: c_vtyp
   LOGICAL,DIMENSION(:),ALLOCATABLE :: found
@@ -1416 +1416 @@
 !-
   TYPE(t_key),ALLOCATABLE,DIMENSION(:) :: tmp_key_tab
-  CHARACTER(LEN=100),ALLOCATABLE :: tmp_str(:)
 !-
   INTEGER :: ier