Changeset 667 for codes/icosagcm/trunk/src/output/output_field.f90
- Timestamp:
- 01/24/18 18:49:49 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/output/output_field.f90
r548 r667 1 1 MODULE output_field_mod 2 USE genmod 2 USE genmod 3 USE xios_mod 4 USE profiling_mod 5 IMPLICIT NONE 6 SAVE 3 7 PRIVATE 8 4 9 LOGICAL,SAVE :: xios_output 5 10 !$OMP THREADPRIVATE(xios_output) 6 11 LOGICAL,SAVE :: enable_io 7 12 !$OMP THREADPRIVATE(enable_io) 13 14 INTEGER :: id_output 8 15 9 16 PUBLIC enable_io,xios_output,output_field_init,output_field,output_field_finalize … … 13 20 SUBROUTINE output_field_init 14 21 USE getin_mod 15 USE xios_mod16 USE write_field_mod17 22 IMPLICIT NONE 23 24 CALL register_id('output',id_output) 18 25 19 26 enable_io=.TRUE. … … 30 37 CALL xios_init_write_field 31 38 ENDIF 32 33 34 39 END SUBROUTINE output_field_init 35 40 36 41 SUBROUTINE output_field(name_in,field) 37 42 USE field_mod 38 USE xios_mod39 43 USE write_field_mod 40 44 IMPLICIT NONE 41 CHARACTER(LEN=*),INTENT(IN) :: name_in 42 TYPE(t_field),POINTER :: field(:) 43 44 IF (xios_output) THEN 45 CALL xios_write_field(name_in,field) 46 ELSE 45 CHARACTER(LEN=*),INTENT(IN) :: name_in 46 TYPE(t_field),POINTER :: field(:) 47 48 CALL enter_profile(id_output) 49 IF (xios_output) THEN 50 CALL xios_write_field(name_in,field) 51 ELSE 47 52 CALL writeField(name_in,field) 48 ENDIF 53 ENDIF 54 CALL exit_profile(id_output) 49 55 50 56 END SUBROUTINE output_field 51 57 52 58 SUBROUTINE output_field_finalize 53 USE ioipsl 54 USE xios_mod 55 IMPLICIT NONE 59 USE ioipsl 60 IMPLICIT NONE 56 61 57 62 IF (xios_output) THEN 58 CALL xios_write_field_finalize63 CALL xios_write_field_finalize 59 64 ENDIF 60 65
Note: See TracChangeset
for help on using the changeset viewer.