Changeset 437 for branches/GRISLIv3/SOURCES/Ant40_files/output_anta40_mod-0.4.f90

Timestamp:

06/29/23 17:51:59 (11 months ago)

Author:

dumas

Message:

Add new Ice Core sites and lon lat fix

File:

• branches/GRISLIv3/SOURCES/Ant40_files/output_anta40_mod-0.4.f90 (modified) (2 diffs)

branches/GRISLIv3/SOURCES/Ant40_files/output_anta40_mod-0.4.f90

@@ -270 +270 @@
        enddo
     enddo
-    print*,'init_outshort : ice core ', trim(ic_name(k)), nloop
-    print*,'init_outshort lon,lat', ic_lon(k),ic_lat(k)
-    print*,'init_outshort i,j',iic(k),jic(k)
-    print*,'init_outshort lon lat GRISLI',xlong(iic(k),jic(k)),ylat(iic(k),jic(k))
+    !print*,'init_outshort : ice core ', trim(ic_name(k)), nloop
+    !print*,'init_outshort lon,lat', ic_lon(k),ic_lat(k)
+    !print*,'init_outshort i,j',iic(k),jic(k)
+    !print*,'init_outshort lon lat GRISLI',xlong(iic(k),jic(k)),ylat(iic(k),jic(k))
  enddo           
           
@@ -362 +362 @@
 !     if (status /= nf90_noerr) call handle_err(status)
 !  enddo
-  print*,'ic_name',ic_name   
+  !print*,'ic_name',ic_name   
   status=nf90_put_var(ncidic, stationVarIDic, ic_name) !,start=(/1/),count=(/nbic/))
   if (status /= nf90_noerr) call handle_err(status)