- Timestamp:
- 01/22/15 01:26:02 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/etat0.f90
r295 r321 112 112 TYPE(t_field),POINTER :: f_phis(:) 113 113 TYPE(t_field),POINTER :: f_theta_rhodz(:) 114 TYPE(t_field),POINTER :: f_temp(:)115 114 TYPE(t_field),POINTER :: f_u(:) 116 115 TYPE(t_field),POINTER :: f_q(:) 117 116 117 TYPE(t_field),POINTER,SAVE :: f_temp(:) 118 118 REAL(rstd),POINTER :: ps(:) 119 119 REAL(rstd),POINTER :: mass(:,:) … … 124 124 REAL(rstd),POINTER :: q(:,:,:) 125 125 INTEGER :: ind 126 127 CALL allocate_field(f_temp,field_t,type_real,llm,name='temp') 126 128 127 129 DO ind=1,ndomain … … 146 148 IF( TRIM(etat0_type)/='williamson91.6' ) CALL temperature2theta_rhodz(f_ps,f_temp,f_theta_rhodz) 147 149 150 CALL deallocate_field(f_temp) 148 151 149 152 END SUBROUTINE etat0_collocated … … 162 165 REAL(rstd),INTENT(OUT) :: q(iim*jjm,llm,nqtot) 163 166 164 REAL(rstd) :: lon_i(iim*jjm)165 REAL(rstd) :: lat_i(iim*jjm)166 167 REAL(rstd) :: ulon_i(iim*jjm,llm) 167 168 REAL(rstd) :: ulat_i(iim*jjm,llm) 168 169 169 REAL(rstd) :: lon_e(3*iim*jjm)170 REAL(rstd) :: lat_e(3*iim*jjm)171 170 REAL(rstd) :: ps_e(3*iim*jjm) 172 171 REAL(rstd) :: mass_e(3*iim*jjm,llm)
Note: See TracChangeset
for help on using the changeset viewer.