Changeset 279

Timestamp:

Oct 11, 2001, 11:50:51 AM (23 years ago)

Author:

lmdzadmin

Message:

Mauvais dimensionnement de rlon, rlat
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/bibio/writephys.F90 (modified) (6 diffs)

LMDZ.3.3/branches/rel-LF/libf/bibio/writephys.F90

@@ -89 +89 @@
   character*(*) :: nom_fichier
   integer :: iim, jjm, llm, klon
-  real, dimension(iim) :: rlon
-  real, dimension(jjm) :: rlat
+  real, dimension(klon) :: rlon
+  real, dimension(klon) :: rlat
   real, dimension(llm) :: zlev
   real                 :: date0, dtime
@@ -274 +274 @@
   integer              :: file_id, isize, jsize, lsize, phy_lon, zsize
   integer              :: nhori, nvert, klon
-  integer              :: nitau
+  integer              :: itau
   real, dimension(:,:,:), allocatable :: temp_data
   character (len = 20) :: modname = 'writephy'
@@ -289 +289 @@
       hist_files(file)%define = .false.
       call histend(hist_files(file)%file_id)
-!      hist_files(file)%nitau = hist_files(file)%nitau + 1
     else
 !
@@ -309 +308 @@
         nvert = hist_files(file)%nvert
       endif
+!      if (var_name == 'phis') then
+!        write(*,*)'Define: ',var_name
+!        write(*,*)file_id, var_name, var_title, var_units,  &
+! &                isize, jsize, nhori, lsize, 1, lsize, nvert, nbits,  &
+! &                var_op, freq_op, freq_wri
+!      endif
       call histdef(file_id, var_name, var_title, var_units,  &
  &                isize, jsize, nhori, lsize, 1, lsize, nvert, nbits,  &
@@ -328 +333 @@
   freq_op = var_profs(iprof, file)%freq_op
   freq_wri = var_profs(iprof, file)%freq_wri
-  nitau = hist_files(file)%nitau
+  itau = hist_files(file)%nitau
 
   if (var_profs(iprof, file)%zsize == 0) then
@@ -344 +349 @@
 !
   call gr_fi_ecrit(lsize, klon, isize, jsize, data, temp_data)
-  call histwrite(file_id, var_name,nitau,temp_data, &
+  if (var_name == 'tsol') then
+    write(*,*)'writephys itau = ', file_id, var_name, itau
+!    write(*,*)file_id, var_name,itau,temp_data, &
+! &               var_profs(iprof, file)%reg_size, &
+! &               var_profs(iprof, file)%reg_index
+  endif
+  call histwrite(file_id, var_name,itau,temp_data, &
  &               var_profs(iprof, file)%reg_size, &
  &               var_profs(iprof, file)%reg_index)
-   
+
+  deallocate(temp_data)
+ 
   return
 !