Changeset 367 for IOIPSL/trunk/src/flincom.f90

Timestamp:

07/28/08 10:28:22 (15 years ago)

Author:

bellier

Message:

Adapting some tests to be conform with new versions of NETCDF

File:

• IOIPSL/trunk/src/flincom.f90 (modified) (5 diffs)

IOIPSL/trunk/src/flincom.f90

@@ -368 +368 @@
 !-
   INTEGER :: iret, vid, fid, nbdim, i, iilast, jjlast
-  INTEGER :: it, len, gdtt_id, old_id, iv, gdtmaf_id
+  INTEGER :: gdtt_id, old_id, iv, gdtmaf_id
   CHARACTER(LEN=250) :: name
   CHARACTER(LEN=80) :: units, calendar
@@ -391 +391 @@
       iideb, iilen, iilast, jjdeb, jjlen, jjlast
 !-
-! 1.0 get all infos on the file  we if it is not yet opened
+! 1.0 get all infos on the file
 !-
 ! Either the fid_out has not been initialized (0 or very large)
@@ -599 +599 @@
 !---
     ALLOCATE(vec_tmp(ttm))
-    iret = NF90_GET_VAR (fid, vid, vec_tmp, &
-             start=(/ 1 /), count=(/ ttm /))
+    iret = NF90_GET_VAR (fid,vid,vec_tmp,start=(/ 1 /),count=(/ ttm /))
     itaus(1:ttm) = NINT(vec_tmp(1:ttm))
     DEALLOCATE(vec_tmp)
@@ -609 +608 @@
 !---
 !-- Find the calendar
-    calendar='XXXX'
-    iret = NF90_GET_ATT (fid, gdtmaf_id, 'calendar', calendar)
-    IF ( INDEX(calendar,'XXXX') < 1 ) THEN
-       CALL ioconf_calendar(calendar)
+    iret = NF90_GET_ATT (fid,gdtmaf_id,'calendar',calendar)
+    IF (iret == NF90_NOERR) THEN
+      CALL ioconf_calendar(calendar)
     ENDIF
 !--
     units = ''
-    iret = NF90_GET_ATT (fid, vid, 'units', units)
+    iret = NF90_GET_ATT (fid,vid,'units',units)
     IF (gdtt_id > 0) THEN
       units = units(INDEX(units,'since')+6:LEN_TRIM(units))
@@ -1629 +1627 @@
   LOGICAL :: check = .FALSE.
 !---------------------------------------------------------------------
+  IF (check) THEN
+    WRITE (*,*) 'flinget_scal in file with id ',fid_in
+  ENDIF
+!-
   fid = ncids(fid_in)
 !-